Var a:array [1..10] of integer;
i, k:integer;
begin
For i:=1 to 10 do
begin
a[i]:=random(9);
Write(a[i],' ');
If a[i] = 5
then
k:=k+1;
end;
Writeln;
Writeln(k);
end.
Var i:integer;s:real;begins:=0;for i:=1 to 20 dos:=s+(1/i);writeln('y = ',s);end.
Ну отдыхает и че?.......,,.,,
Цикл выполнится два раза и программа продолжить выполнение
ответ: 35