ПАСКАЛЬ Дан одномерный целочисленный массив A[10]. - вопрос №1116984010 от котак5 13.03.2023 21:53

Question

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

котак5 · 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....