Question

Инфа. Паскаль. Использовать while. Без for

Answer 1

Var m:array [0..9] of integer;
i,s:integer;
Begin
Randomize;
i:=0;
s:=0;
While i<10 do begin
m[i]:=random(10);
i:=i+1;
Write(m[i],' ');
If m[i]>5 then s:=s+m[i];
end;
Write(s);
End.