Составьте программу вычисления суммы четных элементов одномерного массива.решить в паскале

goshan14 goshan14    3   01.07.2019 03:50    0

Ответы
ariko010 ariko010  24.07.2020 14:59
            Const n=4;
Var a:array [1..n] of integer;
s,t:integer;
begin 
  randomize; 
  for t:=1 to n do
  begin
            a[t] := random(100);     
      write(a[t]:6); 
          end; 
          writeln;
s:=0;
for t:=1 to n do
if a[t] mod 2=0
then
s:=s+a[t];
writeln('summa=',s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика