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

+ 0 -

Swag2226

12 янв. 2014 г., 16:42:31 (10 лет назад)

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<a[i] then
begin
max:=a[i];
k:=i;
end;
writeln('    ',max);
writeln(k);
end.

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

+ 0 -

Arianadiana2012

12 янв. 2014 г., 19:24:34 (10 лет назад)

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

+ 0 -

Gubina48

12 янв. 2014 г., 21:15:42 (10 лет назад)

это ты в каком классе?!!?!?!??!?!!?!?!

+ 0 -

Elenavampirela

13 янв. 2014 г., 0:00:15 (10 лет назад)

в 10-м