TurboPascal! тама: матрицы.

[Анюта)]

Оч просто. НО видимо не для меня(можно полностью программу? пожалуйста)

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

[MyLastHit]

массив одномерный? просто ты самa себе противаречешь ссылаясь на таблицу(А[1..n]) ибо это далеко не таблица а одномерный массив записанный в строчку)


program NumbElemMass;

const n=10;
var A:array[1..n] of integer;
i:integer;
function findmax(n:longint):longint;
var
max,i,index : longint;
begin
max := A[1];
index := 1;
for i := 2 to n do
if max < A[i] then
begin
max := A[i];
index := i;
end;
findmax := index;
end;

begin
Writeln('Vvedite mass');
for i := 1 to n do
read(A[i]);
write(findmax(n));
readln;
readln
end.

[MyLastHit]

если нужно облегченный вариант могу его написать, ибо этот создан через функции. Это работа на пятёрку, зачет или че та у тя

[MyLastHit]

это облегченный, выберай что нравится

program Project1;

const n=10;
var m:array[1..n] of integer;
i, index:integer;
max:real;

begin

Writeln('Vvedi massiv');
for i:=1 to n do readln(M[i]);
max := M[1];
index := 1;
for i:=2 to n do
if max < M[i] then begin
max := M[i];
index := i;
end;

writeln(index);
readln;
readln
end.

[Alex_FF]

Сообщение от MyLastHit

это облегченный, выберай что нравится

program Project1;

const n=10;
var m:array[1..n] of integer;
i, index:integer;
max:real;

begin

Writeln('Vvedi massiv');
for i:=1 to n do readln(M[i]);
max := M[1];
index := 1;
for i:=2 to n do
if max < M[i] then begin
max := M[i];
index := i;
end;

writeln(index);
readln;
readln
end.

только описывать max как Real нет смысла - массив всё равно целочисленный...

[MyLastHit]

Слушай я еще 2 часа назад не мог самостоятельно var описать))) а теперь что то да получается и ошибка не принципиальная))можно и так оставить))