Pascal. Массивы. Найти максимальный элемент и его номер.

Question

Информатика

Мокей

24 мая, 18:06

Pascal. Массивы. Найти максимальный элемент и его номер.

+5

Ответы (2)

Знаете ответ?

Мариня · Answer 1

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
begin

max:=a[i];

k:=i;

end;

writeln (' ', max) ;

writeln (k) ;

end.

Первый элемент считается нулевым) хотя проверь все))) может в конце просто K+1 вывести надо) не помню) мне влом)

Лев · Answer 2

В переменной max_num находится текущее максимальное значение массива, а в max_index - его индекс