25.05.2011, 13:28 | #1 (permalink) |
Новичок
Регистрация: 25.05.2011
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Двумерный массив. Задача
Помогите решить |
25.05.2011, 13:28 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Скорее всего участники форума давали ответы в схожих топиках Двумерный массив Фортран, двумерный массив Задача в Делфи на работу с таблицами. Двумерный массив Паскаль, двумерный массив Паскаль, двумерный массив. Задача. Двумерный массив |
25.05.2011, 15:56 | #4 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Код:
const n=10; var sum,summax,i,j:integer; mas: array[1..n,1..n] of integer; begin randomize; {заполнение массива случайными значениями и вывод его на экран} for i:=1 to n do begin for j:=1 to n do begin mas[i,j]:=random(100)-50; write(mas[i,j]:4); end; writeln; end; {Вычисление сумм элементов каждой строки, вывод их на экран и определение максимальной суммы} summax:=0; for i:=1 to n do begin sum:=0; for j:=1 to n do begin sum:=sum+a[j,i]; end; writeln(sum:4); if sum>summax then summax:=sum; end; writeln('Max sum =',maxsum); readln; end.
__________________
Убить всех человеков! |
25.05.2011, 17:31 | #5 (permalink) |
Новичок
Регистрация: 25.05.2011
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо большое)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|