Сформировать одномерный массив, каждый элемент которого равен сумме положительных элементов в соответствующем столбце двухмерного массива

@PARNISH · Регистрация: 12.04.2010

Дан двухмерный массив целых чисел.
Сформировать одномерный массив, каждый элемент которого равен сумме положительных элементов в соответствующем столбце двухмерного массива, кратных 4 или 5.

@Snoopy · 12.04.2010, 19:22

Pascal

uses crt;
const n=5;
      m=4;
var a:array[1..100,1..100] of integer;
    b:array[1..100] of integer;
    i,j:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20)-10;
    Write(a[i,j]:5);
   end;
  Writeln;
 end;
Writeln;
b[j]:=0;
for j:=1 to m do
 for i:=1 to n do
  if (a[i,j] mod 4=0) or (a[i,j] mod 5=0) then
   b[j]:=b[j]+a[i,j];
for i:=1 to m do
 Write(b[i]:5);
Readln;
end.

@PARNISH 3 / 3 / 0 Регистрация: 12.04.2010 Сообщений: 39
		1
	Сформировать одномерный массив, каждый элемент которого равен сумме положительных элементов в соответствующем столбце двухмерного массива 12.04.2010, 19:12. Показов 1702. Ответов 1 Метки нет (Все метки) Дан двухмерный массив целых чисел. Сформировать одномерный массив, каждый элемент которого равен сумме положительных элементов в соответствующем столбце двухмерного массива, кратных 4 или 5. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Сформировать одномерный массив, каждый элемент которого равен сумме положительных элементов в соответствующем столбце двухмерного массива

Решение