ПАСКАЛЬ Дан одномерный целочисленный массив A[10]. - вопрос №1011170240 от EnderDragon500 07.03.2022 00:34

Question

Информатика: ПАСКАЛЬ Дан одномерный целочисленный массив A[10]. Массив вводится с клавиатуры. Написать программу, которая будет находить произведение четных элементов массива.

EnderDragon500 · Answer

var a: array [1..10] of integer;var s,i: integer;begins:=1;for i:=1 to 10 do  begin  read(a[i]);  if (a[i] mod 2 = 0) then s:=s*a[i];  end;writeln( Произведение четных элементов массива: ,s);end....