Ответ:
Лучший результат: 3,17
Минимальное отклонение: 0,2
Количество заплывов: 3
Среднее время ~ 3,20.
<u>1. Самый незатейливый вариант, выдающий значение суммы 21</u>
begin
Writeln(1+2+3+4+5+6)
end.
<u>2. Типовой "школьный вариант"</u>
var
i,s:integer;
begin
s:=0;
for i:=1 to 6 do s:=s+i;
Writeln(s)
end.
<u>3. Современный вариант, немного покороче</u>
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
1.To(6).Sum.Println
end.
Var a:array[1..5,1..10] of integer;
b:array[1..5,1..10] of real;
i,max:integer;
begin max:=0;
for i:=1 to 5 do
for j:=1 to 10 do begin
read(a[i,j]);
if abs(a[i])> max then max:=a[i];
end;
for i:=1 to 5 do
for j:=1 to 10 do begin
b[i,j]:=a[i,j]/max
write(a[i,j]);
end;
end.