5 мин 57 сек= 357
Скорость передачи определяется отношением количества информации ко времени
357:357=1
хз правильно ли
18>26 (нет) 18>10(да) а:=18*3=54 а:=54+10=64
ответ 64
//Pascal ABC.NET v3.1 сборка 1172
begin
Var seq:=SeqWhile(ReadInteger(),x -> ReadInteger(),x -> x<>0).ToArray;
writeln(seq.Select((x,i)->Rec(x,i+1)).Where(x->x.Item1=seq.Min).Select(x->x.Item2));
end.
Пример ввода:
2
3
4
0
Пример вывода:
<span>[1]</span>
Var
i, n, m, j, max: integer;
ar: array[1..10000, 1..10000]of integer;
begin
randomize;
readln(n, m);
for i := 1 to n do
for j := 1 to m do
begin
ar[i, j] := random(1, 100);
if(i = 1) and (j = 1) then max := ar[1, 1];
if(ar[i, j] > max) then max := ar[i, j];
end;
writeln('Максимальный элемент:', max);
for i := 1 to n do
begin
for j := 1 to m do
write(ar[i, j]:4, ' ');
writeln;
end;
end.