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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
