Ответы
Ответ дал:
0
массив заполняется автоматически
Pascal
var
a:array[1..25] of integer;
i, s: integer;
begin
s:=0;
randomize;
for i:=1 to 25 do begin
a[i]:=random(100)-50;
write(a[i], ' ');
if a[i]>0 then s:=s+a[i]
end;
writeln();
writeln('Сумма положительных элементов =', s);
end.
Приложения:
![](https://st.uroker.com/files/13b/13ba9c1a88a997548251a8535830c124.png)
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
7 лет назад