В массиве хранится информацыя о максимальной скорости каждой из 40 марок легковых автомобилей. Определить порядковый номер самого быстрого автомобиля . Если таких автомобилей несколько,то должен быть найден номер а)первого из них б)последнего из них — Pascal(Паскаль)

а) вывод первого

uses crt;
var a:array[1..40] of integer;
i,n,max:integer;
begin
for i:=1 to 40 do
random(100);  { создаем массив случайных величин от 0 до 100 для автоматической генерации массива }
max:=a[1];  { присваиваем максимальному первое значение из массива (можно любое ) }
for i:=1 to 40 do
if a[i]>max then  begin 
  max:=a[i];
  n:=i;  { присваиваем значение счетчика i переменной n отвечающей за индекс в массиве }
 end;
 
writeln('max= ',i);  { вывод полученного индекса}
readln; 
end.

б) вывод нескольких

uses crt;
var a:array[1..40] of integer;
i,n,max:integer;
begin
for i:=1 to 40 do
random(100);  { создаем массив случайных величин от 0 до 100 для автоматической генерации массива }
max:=a[1];  { присваиваем максимальному первое значение из массива (можно любое ) }
for i:=1 to 40 do
if a[i]>=max then  begin 
  max:=a[i];
  n:=i;  { присваиваем значение счетчика i переменной n отвечающей за индекс в массиве }
 end;
 
writeln('max= ',i);  { вывод полученного индекса}
readln; 
end.

Похожие записи/страницы:

Leave a Comment

30 − 27 =