Двумерные массивы - найти сумму положительных элементов - Pascal ABC
Формулировка задачи:
Нужно написать программу с под программой и без нее на задание:
Дан массив Х (M,N). Среди элементов четных столбцов массива найти сумму положительных элементов.
Решение задачи: «Двумерные массивы - найти сумму положительных элементов»
textual
Листинг программы
uses crt;
var mas:array [1..10,1..10] of integer;
i,j,sum:integer;
procedure suma(var mas:array [1..10,1..10] of integer; sum:integer);
begin
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
if j mod 2=0 then
if mas[i,j]>0 then
sum:=sum+mas[i,j];
end;
end;
write('Сумма положительных элементов четных столбцов = ',sum);
end;
begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
mas[i,j]:=random(101);
write(mas[i,j]:3);
end;
writeln;
end;
suma(mas,sum);
end.
Объяснение кода листинга программы
- Объявлены переменные:
- mas - двумерный массив (10х10) целых чисел;
- i, j - индексы для обхода массива;
- sum - сумма положительных чисел.
- Определена процедура suma:
- Проход по всем элементам массива (по i и j);
- Проверка на четность j;
- Если элемент массива положительный, то прибавление его к сумме;
- Вывод суммы на экран.
- В основной части программы:
- Инициализация генератора случайных чисел;
- Заполнение массива случайными числами от 1 до 100;
- Вывод значений массива на экран;
- Вызов процедуры suma для вычисления суммы положительных чисел четных столбцов.
- Вывод на экран значения суммы положительных чисел четных столбцов.