Завести в программе массив Dot{любые 8 целых чисел от 1 до 100}. Найти минимальный элемент массива и его номер и вывести его на экран.
Ответы
Ответ дал:
0
паскаль
var dot: array [1..8] of integer;
i,max,maxi:integer;
begin
max:=0;
for i:=1 to 9 do // создание массива
readln(a[i]);
for i:=1 to 9 do
if max<a[i] then // поиск максимального
begin
max:=a[i];
maxi:=i;
end;
writeln(max," ",maxi);
end;
var dot: array [1..8] of integer;
i,max,maxi:integer;
begin
max:=0;
for i:=1 to 9 do // создание массива
readln(a[i]);
for i:=1 to 9 do
if max<a[i] then // поиск максимального
begin
max:=a[i];
maxi:=i;
end;
writeln(max," ",maxi);
end;
Похожие вопросы
2 года назад
2 года назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад