Двумерный массив! Паскаль

Тема в разделе "Pascal and Delphi", создана пользователем Snowwy15, 14 дек 2010.

Статус темы:
Закрыта.
  1. Snowwy15

    Snowwy15 Гость

    Не поможете, ребят ? ) Условия такие..
    A(N,M) Вычислить и запомнить суммы и числа элементов каждой строки матрицы.Результат отпечатать в виде двух столбцов.N<=20;M<=15;
    Код (Text):
    PROGRAM qwerty;
    USES Crt;
    CONST
    n=15; m=20;
    VAR
    a:array[1..n,1..m] of integer;
    rows:array[1..m]of integer;
    cols:array[1..n]of integer;
    i,j:integer;
    BEGIN
    clrscr;
    for i:=1 to n do
    for j:=1 to m do
    begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
    clrscr;
    end;
    for i:=1 to n do
    for j:=1 to m do
    begin
    rows[i]:=rows[i]+a[i,j];
    cols[j]:=cols[j]+a[i,j];
    end;
    {rows - суммы по строчкам; cols - по столбцам}
    repeat read until keypressed;
    END.
    остановился на этом, даальше просто нет мыслей никаких..
    Буду премного благодарен )
     
  2. nayke

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    Насколько я понимаю что вы хотите - суммы вы получаете в rows а число элементов в строке M. Или может в задании было что-то типа числа положительных или четных элементов..
     
Загрузка...
Похожие Темы - Двумерный массив Паскаль
  1. mikhailkarmanov
    Ответов:
    1
    Просмотров:
    1.149
  2. qwerty123123123
    Ответов:
    6
    Просмотров:
    1.673
  3. Sherlock
    Ответов:
    1
    Просмотров:
    1.359
  4. MadPolarBear
    Ответов:
    0
    Просмотров:
    1.381
  5. Julia9497
    Ответов:
    0
    Просмотров:
    1.312
Статус темы:
Закрыта.

Поделиться этой страницей