Ответы и объяснения

2012-11-06T04:27:02+00:00

Program n1;
Uses CRT;
Const n=10;
Var s,i: integer;
a: array[1..n] of integer;
begin
ClrScr;
Randomize;
For i:=1 to n do
begin
a[i]:=random(50);
a[i]:=a[i]-25;
write(a[i]:3);
end;
For i:=1 to n do
if a[i]>0 then s:=s+a[i];
writeln('summa = ',s);
readln
end.