• Паскаль. Заполните двумерный массив 3х4 целыми числами с клавиатуры. Выведите его на экран. Найдите сумму элементов каждой строки.

    Помогите пожалуйста, только не заумными командами, т.к. Только начали изучать Паскаль

Ответы 1

  • var a: array[1..3,1..4] of integer;    i,j,s: integer;begin  for i:=1 to 3 do  begin     write('строка ',i,': ');     for j:=1 to 4 do read(a[i,j]);  end;// вывод массива на экран    writeln('массив а по строкам:');  for i:=1 to 3 do  begin    for j:=1 to 4 do write(a[i,j]:4);    writeln;  end;// суммы элементов по строкам  for i:=1 to 3 do  begin    s:=0;    for j:=1 to 4 do s:=s+a[i,j];    writeln('сумма элементов строки ',i,': ',s);  end;end.ввод - выводстрока 1: 10 11 12 13строка 2: 14 15 16 17строка 3: 18 19 20 21массив а по строкам:  10  11  12  13  14  15  16  17  18  19  20  21сумма элементов строки 1: 46сумма элементов строки 2: 62сумма элементов строки 3: 78
    • Автор:

      makai
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years