Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » плиз нужна помощь!!! (решение задачи)
плиз нужна помощь!!!
Задача № 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.
1 | Автор: mila | 2012-05-03, 11:05   |  Репутация: [ + 0 ]
Оно не компилируется или не правильно работает?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-05-03, 14:15   |  Репутация: [ + 211 ]
извеняюсь за свое незнание я только учусь! но помоему она не компилируется!
3 | Автор: mila | 2012-05-03, 14:34   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » плиз нужна помощь!!! (решение задачи)
Страница 1 из 11
Поиск: