ОТ
Ольга Толли
Помогите пожалуйста с информатикой. очень нужно.
Скажи пожалуйста что надо вставить в две скобки. где написано СЮДА ЧТО. И скажите что эта программа делает. Спасибо большое... очень срочно нужно.
program r1;
var y:array[1..20] of real;
i:integer;
s:real;
flag:boolean;
procedure prosmotr;
begin
flag:=true;
for I:=1 to 9 do
begin
if y>y[i+1] then
begin
s:=y;
y:=y[i+1];
y[i+1]:=s;
flag:=false;
end;
end;
if flag=false then prosmotr;
end;
begin
writeln('ВОТ СЮДА ЧТО');
for i:=1 to 9 do
readln(y);
prosmotr;
writeln('и СЮДА ЧТО');
for i:=1 to 9 do
writeln(y);
end.