Для каждого столбца двумерного массива подсчитать сумму четных положительных элементов

@MAILZES · Регистрация: 29.04.2015

Студворк — интернет-сервис помощи студентам

Дан массив размером n×n, элементы которого целые числа Для каждого столбца подсчитать сумму четных положительных элементов, и записать данные в новый массив.

@Puporev · 10.09.2016, 08:42

Pascal

const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,s:integer;
begin
randomize;
repeat
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-20+random(41);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln('Суммы четных положительных в столбцах');
for j:=1 to n do
 begin
  s:=0;
  for i:=1 to n do
  if(a[i,j]>0)and(a[i,j] mod 2=0) then s:=s+a[i,j];
  writeln('Столбец ',j:2,'=',s);
 end;
end.

@MAILZES 0 / 0 / 0 Регистрация: 29.04.2015 Сообщений: 60
		1
	Для каждого столбца двумерного массива подсчитать сумму четных положительных элементов 09.09.2016, 21:51. Показов 1667. Ответов 1 Метки нет (Все метки) Дан массив размером n×n, элементы которого целые числа Для каждого столбца подсчитать сумму четных положительных элементов, и записать данные в новый массив. 0

	10.09.2016, 08:42

Опции темы

Для каждого столбца двумерного массива подсчитать сумму четных положительных элементов

Решение