Решение : дорога из села в город проходит через рабочий поселок. из села в город вішла легковая автомашина - id31626520210102 от anelyasabina20 02.01.2021 18:39

Question

Математика: Решение : дорога из села в город проходит через рабочий поселок. из села в город вішла легковая автомашина со скоростью 1,5 км/мин.в то же самое время из рабочего поселка в город вішла грузовая автомашина со скоростью 1 км/мин. через 20 легковая автомашина догнала грузовую. найдите расстояние от села до рабочего поселка

anelyasabina20 · Accepted Answer

Ну и сюда скину. Вдруг не заметишь)
Эта автоматически тебе всё сделает.
Var i, n, max : Integer;
a : array [1..30] of Integer;
begin
for i := 1 to 30 do
begin
Write('a[', i, ']=');
a[i]:=i+1;
if max<a[i] then max:=a[i];
writeln(a[i]);
end;
writeln('Максимальный элемент равен: ',max);
end.

Если нужно будет ввести последовательность с клавиатуры, то вот:
Var i, n, max : Integer;
a : array [1..30] of Integer;
begin
for i := 1 to 30 do
begin
Write('a[', i, ']=');
ReadLn (a[i]);
if max<a[i] then max:=a[i];
end;
writeln('Максимальный элемент равен: ',max);
end.

MOGZ ответил