Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.09.2017, 16:01   #1
Dir08
Новичок
Джуниор
 
Регистрация: 10.09.2017
Сообщений: 1
По умолчанию Массивы.Формирование нового. Сумма элементов

Ввести матрицу A n*m, вывести её. В каждой строке найти сумму элементов расположенных после первого нулевого элемента. Значения найденных сумм поместить в одномерный массив Bn. Обозначить новый массив буквой 'B'. Помогите пожалуйста. Нужна простая программа без заморочек
Dir08 вне форума Ответить с цитированием
Старый 17.09.2017, 10:58   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
const n=12;
      m=20;
var a:array[1..n,1..m] of integer;
    b:array[1..n] of integer;
    i,j,j0,c:integer;
begin
   For i:=1 to n do
      For j:=1 to m do
      begin
         Write('a[',i,', ',j,'] = ');
         Readln(a[i,j]);
      end;
   For i:=1 to n do
   begin
      For j:=1 to m do
         Write(a[i,j]:3,' ');
      Writeln;
   end;
   Writeln;
   For i:=1 to n do
   begin
      c:=0;
      j0:=-1;
      Repeat
         Inc(j0);
      Until (a[i,j0]=0) or (j0>=m);
      For j:=j0+1 to m do
         c:=c+a[i,j];
      Writeln(c);
   end;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Массивы в Pascal. Произведение элементов и формирование. Jance Помощь студентам 6 27.03.2014 16:23
Формирование нового файла с листами по условию Maximus_23 Microsoft Office Excel 0 16.05.2011 16:20
Две задачи на массивы (формирование нового массива и перестановка в массиве) (pascal abc) antony sky Паскаль, Turbo Pascal, PascalABC.NET 8 09.05.2011 17:54
Формирование нового массива из данных в Делфи Юлия Алексеевна Помощь студентам 0 07.03.2010 13:53
Двумерные массивы. Сумма элементов столбца. (Си) spirit_trapper Помощь студентам 10 23.12.2009 17:24