Известны максимальные скорости каждой из 10 иномарок легковых автомобилей. Определить, какой автомобиль (по номеру) самый быстрый.
Скорость 1-ого автомобиля возьмем за начальное значение искомого максимума m, а искомый номер тогда возьмем за 1. Будем вводить скорости и сравнивать их с m, если очередная введенная скорость больше m, то значение m будем менять на значение этой скорости, также будем сохранять порядковый номер в переменной k.
Программа решения:
var i,a,k,m:integer;
begin
writeln('Введите максимальные скорости 10 автомобилей ');
readln(m);k:=1;
for i:=2 to 10 do
begin
readln(a);
if a>m then begin m:=a;k:=i;end;
end;
writeln('Скорость самого быстрого автомобиля ',m);
writeln('Номер автомобиля ',k);
end.
Результат выполнения программы:
Найдите максимальную скорость автомобиля вторую по величине и номер этого автомобиля.
Например: всего 5 автомобилей
Максимальные скорости автомобилей: 150 180 220 250 210
Ответ: 220, 3
Напишите программу в комментариях
var N,J,k :integer; a:array[1..100] of integer; b:array[1..100] of integer;
ОтветитьУдалитьbegin
writeln ('Введите максимальные скорости 5 автомобилей.');
N:=0;
J:=0;
for k:=1 to 5 do
begin
readln (a[k]);
if N<a[k] then
begin N:=a[k];
J:=J+1;
b[J]:=a[k];
end;
end;
writeln (b[J-1],', ',J-1);
end.
Глеб, да, использование массива целесообразно. Верно!
Удалить