Задача № 1
Создайте двумерный массив целых чисел размером 4*3, заполненный случайным образом и выведите его на экран. Найдите максимальный элемент, а также укажите номер строки и столбца, содержащие этот элемент.
Описание:
a- массив двумерный, n=4 – число строк, m=3 – число столбцов,
Max – максимальный элемент, Imax – номер строки максимального элемента, Jmax – номер столбца максимального элемента. i,j – соответственно индекс строки и индекс столбца.
вот мое решение подскажите пожалуйста где я ошиблась????
Program E2;
Uses CRT;
const n=4; m=3;
type
Mass=array[1..n,1..m] of integer;
var
a:Mass;
I, j, Max, Imax, Jmax: integer;
begin
Clrscr;
Randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=-50+random(101);
write(a[I,j]:4);
end;
writeln;
end;
Max:=a[1,1];
for i:=1 to n do
for j:=1 to m do
if Max:<=a[i,j] then
begin
Max:=a[i,j];
Imax:=i: Jmax:=j:
end;
Writeln(‘Max=’,Max);
Writeln(‘Imax=’,Imax);
Writeln(‘Jmax=’,Jmax);
Readln;
end.
|
|
|
|
Оно не компилируется или не правильно работает?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
извеняюсь за свое незнание я только учусь! но помоему она не компилируется!
|
|
|
|
