Составить программу, которая находит сумму четных элементов массива

@Stefka · Регистрация: 24.05.2016

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

Дан двумерный массив от 1 до n. Составить программу ,которая находит сумму четных элементов массива.

@shilko2013 · 25.05.2016, 11:15

Pascal

const n=30;
var a:array [1..n,1..n] of integer;
i,j,sum:integer;
BEGIN
sum:=0;
For i:=1 to n do  //заполнение матрицы
  For j:=1 to n do
  a[i,j]:=Random (100);
For i:=1 to n do  //поиск суммы
  For j:=1 to n do
  IF a[i,j] mod 2 = 0 THEN sum:=sum+a[i,j];
Writeln (sum);
END.

@Stefka 0 / 0 / 0 Регистрация: 24.05.2016 Сообщений: 5
		1
	Составить программу, которая находит сумму четных элементов массива 24.05.2016, 11:01. Показов 6773. Ответов 1 Метки нет (Все метки) Дан двумерный массив от 1 до n. Составить программу ,которая находит сумму четных элементов массива. 0

	25.05.2016, 11:15

Составить программу, которая находит сумму четных элементов массива

Решение