Ответы на вопрос:
var a: array[1..100] of integer;
i,s: integer;
begin
randomize; n: =20; for i: = 1 to n do begin a[i]: =random(n*10)- 10*n div 2 ; write(a[i]: 4); if i mod 10=0 then writeln;
if a[i]> =0 then s: = s+a[i]; end;
for i: = 1 to n do begin
if a[i]< 0 then a[i]: =s;
write(a[i]: 4); if i mod 10=0 then writeln;
end;
end.
Популярно: Информатика
-
theslomsmon26.11.2022 14:26
-
Lumperz15.01.2021 16:17
-
crankbait22.04.2020 15:32
-
svetik333315.10.2020 15:29
-
Fotima10011.01.2022 05:45
-
fuccatsumi111.11.2022 02:45
-
pomogyte6727.07.2020 07:26
-
artem16021artemka1621.08.2021 19:26
-
алибекalmaiurbrhje28.01.2022 07:03
-
daniillopunov1622.11.2022 23:12