TPascal матрицы(

[Анюта)]

сама понимаю, легко, но что-то не получается...


Найти номер максимального элемента таблицы а[1..10]
да глупая!

[.Phoenix]

var a: array[1..10]  of integer;
max,i,poz: integer;
begin
max:=-32768;
for i:=1 to 10 do
begin
readln(a[i]);
if a[i]>max then
begin
max:=a[i];
poz:=i;
end;
end;
writeln(poz);
readln;

да глупая!

Ты просто себя не дооцениваешь.

[Анюта)]

спасибо))))))))