Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 30.01.2011, 16:10   #11 (permalink)
Mr.Програмист
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.
Mr.Програмист вне форума   Ответить с цитированием

Старый 30.01.2011, 16:10
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Обсуждения которые так или иначе похожи на вашу тему уже встречались, рекомендую вам их просмотреть

Паскаль, работа с файлами
Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл
Паскаль. Работа с текстом
Работа с датами

Старый 30.01.2011, 18:06   #12 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Mr.Програмист Посмотреть сообщение
Код:
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.
А другие замечания Миши (Shrek) Вы проигнорировали? Напрасно. Всего-то и нужно было, что
Код:
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. Между прочим, слова "программа", программист" и т.д. пишутся с двумя "м". Кроме того, в русском языке нет приставки "з", есть приставка "с", а потому не "зделал", а "сделал". Очень рекомендую и русский язык "подтянуть" - в жизни пригодится.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 11:39.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.