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

@X_Serega_X · Регистрация: 01.06.2011

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

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

@Zanexess · 11.06.2011, 22:52

Pascal

uses crt;
const n=10;
var a: array [1..n,1..n] of shortint;
    b: array [1..n] of integer;
    i,j:byte; sum:integer;
begin
For i:=1 to n do
 begin
  Writeln;
   For j:=1 to n do
    begin
     a[i,j]:=random(200)-100+1;
     write (a[i,j]:4);
    end;
end;
sum:=0;
For i:=1 to n do
 begin
   For j:=1 to n do
     If (a[j,i]>0) and (a[j,i] mod 2 = 0) then sum:=sum+a[j,i];
     b[i]:=sum;
     sum:=0;
 end;
Writeln;
Writeln;
For i:=1 to n do Write (b[i]:4);
end.

@X_Serega_X 0 / 0 / 0 Регистрация: 01.06.2011 Сообщений: 13
		1
	Сформировать одномерный массив, каждый элемент которого равен сумме четных положительных элементов соответствующего столбца двумерного массива. 11.06.2011, 15:39. Показов 6851. Ответов 1 Метки нет (Все метки) Дан двумерный массив целых чисел. Сформировать одномерный массив, каждый элемент которого равен сумме четных положительных элементов соответствующего столбца двумерного массива. 0

	11.06.2011, 22:52

Опции темы

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

Решение