|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
30.01.2011, 16:10 | #11 (permalink) |
Banned
Регистрация: 25.01.2011
Сообщений: 27
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Код:
Uses CRT; Var a:array[1..100,1..100] of INTEGER; b:array[1..100] of INTEGER; i,j,n,max,v:longint; Begin Writeln('Введите сторону квадрата'); Readln(n); v:=0; Writeln('Заполнение массива'); For i:=1 to n do For j:=1 to n do Readln(a[i,j]); max:=a[1,1]; For j:=1 to n do For i:=1 to n do begin if a[i,j]>max Then max:=a[i,j]; b[j]:=max; end; For i:=1 to n do v:=v+b[i]; Writeln(v:2); for i:=1 to n do begin for j:=1 to n do begin Write(a[i,j],' '); end; Writeln; end; End. |
30.01.2011, 16:10 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Обсуждения которые так или иначе похожи на вашу тему уже встречались, рекомендую вам их просмотреть Паскаль, работа с файлами Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Паскаль. Работа с текстом Работа с датами |
30.01.2011, 18:06 | #12 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Uses CRT; Var a:array[1..100,1..100] of INTEGER; b:array[1..100] of INTEGER; i,j,n,max,v:longint; Begin Writeln('Введите сторону квадрата'); Readln(n); v:=0; Writeln('Заполнение массива'); For i:=1 to n do For j:=1 to n do begin Write('a[',i:2,',',j:2,']= '); Readln(a[i,j]); end; For j:=1 to n do begin max:=a[1,j]; For i:=1 to n do begin if a[i,j]>max then max:=a[i,j]; end; b[j]:=max; end; For i:=1 to n do v:=v+b[i]; Writeln(v:2); for i:=1 to n do begin for j:=1 to n do Write(a[i,j],' '); Writeln; end; Readln; End. Теперь про другие дела. Несмотря на то, что Вы так и не довели программу до ума, я не хочу отлучать Вас от форума. Вместе с тем, прошу понять - до права выкладывать свои программы Вы явно не доросли, поэтому убедительно прошу (пока прошу) воздержаться от этого. Учитесь, взрослейте - а там посмотрим. P.S. Между прочим, слова "программа", программист" и т.д. пишутся с двумя "м". Кроме того, в русском языке нет приставки "з", есть приставка "с", а потому не "зделал", а "сделал". Очень рекомендую и русский язык "подтянуть" - в жизни пригодится. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|