Юрий
7 год назад
Завести в программе массив Dot{любые 8 целых чисел от 1 до 100}. Найти минимальный элемент массива и его номер и вывести его на экран.
ОТВЕТЫ
Аксёнович
Jul 17, 2019
Паскаль
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 maxlt;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 maxlt;a[i] then // поиск максимального
begin
max:=a[i];
maxi:=i;
end;
writeln(max," ",maxi);
end;
242
Смежные вопросы:
