Найти сумму всех четных элементов двумерного массива целых чисел А[10,10]

@Xenunya · Регистрация: 25.11.2012

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

Ребята помогите пожалуйста написать программу на Паскале)
Найти сумму всех четных элементов двумерного массива целых чисел А[10,10].Массив должен вводится во время работы программы.
Заранее Большое Спасибо))

@vanek_proger · 25.11.2012, 14:47

Pascal

var
   a : array[1..10, 1..10] of integer;
   i,j,sum : integer;
begin
   for i:=1 to 10 do
     for j:=1 to 10 do
     begin
        read(a[i][j]);
        if (a[i][j] mod 2) = 0 then
           sum := sum+a[i][j];
     end;
  writeln(sum);
end.

@Xenunya · 25.11.2012, 15:59 **[ТС]**

Что то как-то не очень понятно)

@КонецСвета · 02.12.2012, 16:59

так понятнее?

Pascal

var
   a : array[1..10, 1..10] of integer;
   i,j,sum : integer;
begin
writeln('Введите матрицу построчно');
sum:=0;
   for i:=1 to 10 do                //в цикле с параметром для строк
     for j:=1 to 10 do              //в цикле с параметром для столбцов
     begin
        read(a[i,j]);               //считываю элементы матрицы
        if (a[i,j] mod 2) = 0 then  //если четные
           sum := sum+a[i,j];       //суммарую
     end;
  writeln('Сумма четных элементов=',sum);
end.

@Xenunya 0 / 0 / 0 Регистрация: 25.11.2012 Сообщений: 5
		1
	Найти сумму всех четных элементов двумерного массива целых чисел А[10,10] 25.11.2012, 13:44. Показов 8346. Ответов 3 Метки нет (Все метки) Ребята помогите пожалуйста написать программу на Паскале) Найти сумму всех четных элементов двумерного массива целых чисел А[10,10].Массив должен вводится во время работы программы. Заранее Большое Спасибо)) 0

@Xenunya 0 / 0 / 0 Регистрация: 25.11.2012 Сообщений: 5
	25.11.2012, 15:59 [ТС]	3
	Что то как-то не очень понятно) 0

Опции темы