ПАСКАЛЬ Дан одномерный целочисленный массив A[10]. - вопрос №1011170065 от redf0x0 02.05.2021 10:57

Question

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

redf0x0 · 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....