Ianmath 25 ноября 2019 в 05:34
Дан одномерный массив из 30 элементов, составить программу для подсчета произведения четных элементов этого массива.
Дан одномерный массив из 30 элементов, составить программу для подсчета произведения четных элементов этого массива.
Program z1;
var A:array[1..30] of integer;
i,k:integer;
begin
k:=1;
for i:=1 to 30 do begin
write(a[,i,]=);
read(a[i]);
end;
for i:=1 to 30 do
if a[i] mod 2=0 then
k:=a[i]*k;
writeln(k);
end.
var A:array[1..30] of integer;
i,k:integer;
begin
k:=1;
for i:=1 to 30 do begin
write(a[,i,]=);
read(a[i]);
end;
for i:=1 to 30 do
if a[i] mod 2=0 then
k:=a[i]*k;
writeln(k);
end.
Компьютеры и вычисления
482
0
Для комментирования необходимо зарегистрироваться на сайте