Предмет: Информатика,
автор: bektemir0103
Дан одномерный массив A(N).Найдите произведение четных чисел этого массива.
Ответы
Автор ответа:
1
var a:array[1..100]of integer;n,i:integer;begin readln(n);randomize; for i:=1 to n do begin a[i]:=random(100); write(a[i], ' '); end; for i:=1 to n do begin if not(odd(a[i])) then S:=S+a[i];end;Writeln('Summa=',S);end.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: sakurasama01
Предмет: Информатика,
автор: Аноним
Предмет: Физкультура и спорт,
автор: 0ksceyv
Предмет: Физика,
автор: Зария7555
Предмет: Алгебра,
автор: gvewknio