For(i = 0; i < N; i++)
{
sum += a[i] * a[i];
}
var i:byte;
begin
i:=1;
while i<=5 do
begin
writeln('Imya');
i:=i+1;
end;
end.
//Pascal ABC.NET 3.1 сборка 1219
Var
f:file;
n,i:integer;
r,s:real;
begin
randomize;
readln(n);
assign(f,'OUTPUT.DAT');
rewrite(f);
for i:=1 to n do
begin
r:=random;
if i<>n then write(f,floattostr(r),' ') else write(f,floattostr(r));
s:=s+r;
end;
close(f);
writeln(s);
end.
Пример ввода:
4
Пример вывода:
1.10933282929907
Содержимое <span>OUTPUT.DAT представлено во вложении.</span>
Это блок схема циклического алгоритма с условием в начале