В массиве хранится информация максимальной скорости каждой из 40 марок легковых автомобилей. Определить порядковый номер самого быстрого автомобиля. Если таких автомобилей несколько, то должен быть найден номер: а) первого из н...
В массиве хранится информация максимальной скорости каждой из 40 марок легковых автомобилей. Определить порядковый номер самого быстрого автомобиля. Если таких автомобилей несколько, то должен быть найден номер: а) первого из них; б) последнего из них.
Гость
Ответ(ы) на вопрос:
Гостьconst
n=40;
var
a:array[1..n] of integer;
i,amax,n1,nn:integer;
begin
Randomize;
Writeln('Элементы массива');
amax:=0;
for i := 1 to n do
begin
a[i]:=Random(61)+170; { [170..230] }
Write(a[i]:4);
if amax
Не нашли ответ?
Похожие вопросы