Pascal. Массивы. Найти максимальный элемент и его номер.
Pascal. Массивы. Найти максимальный элемент и его номер.
Гость
Ответ(ы) на вопрос:
Гостьprogram D1KPxx0;
uses crt;
var
a:array [1..10] of integer;
i,max,k:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(101);
write(a[i],' ');
end;
max:=a[1];
for i:=1 to 10 do
if max
ГостьВ переменной max_num находится текущее максимальное значение массива, а в max_index – его индекс
Не нашли ответ?
Похожие вопросы