Модератор
981
Советник
690
Специалист
402
Академик
320
Мастер-Эксперт
204
Профессионал
186
Профессор
163
8.3.1
01.03.2021
JS: 2.4.1
CSS: 4.4.0
jQuery: 3.5.1
Создание программ на языках Pascal, Delphi и Lazarus.
Администратор раздела: Зенченко Константин Николаевич (Старший модератор)
|
Перейти к консультации №: |
|
Здравствуйте! Прошу помощи в следующем вопросе:
Напишите программу, в которой нужно в двухмерном массиве 3×6 для каждого четного столбца определить сумму элементов.
Pascal
Состояние: Консультация закрыта
Здравствуйте, Barsik22!
const m=3; n=6; var a:array[1..m,1..n]of integer; i,j,s:integer; begin randomize; writeln('Матрица'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(20); write(a[i,j]:3); end; writeln; end; writeln('Суммы в четных столбwах'); j:=2; while j<=n do begin s:=0; for i:=1 to m do s:=s+a[i,j]; writeln('Столбец ',j,'=',s); j:=j+2; end; end.
![]() |
Консультировал: puporev (Профессор) Дата отправки: 23.02.2021, 13:37
5
нет комментария----- Дата оценки: 23.02.2021, 13:43 |
Рейтинг ответа:
+1 Сообщение модераторам Отправлять сообщения |
Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.