0 / 0 / 0
Регистрация: 25.11.2012
Сообщений: 5
1

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

25.11.2012, 13:44. Показов 8346. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Ребята помогите пожалуйста написать программу на Паскале)
Найти сумму всех четных элементов двумерного массива целых чисел А[10,10].Массив должен вводится во время работы программы.
Заранее Большое Спасибо))
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.11.2012, 13:44
Ответы с готовыми решениями:

Найти сумму всех четных элементов двумерного массива целых чисел размерности 4*8. В чем ошибка в программе?
Найти сумму всех четных элементов двумерного массива целых чисел размерности 4*8. program p2;...

Найти сумму всех четных элементов двумерного массива целых чисел
Помогите пожалуйста решить задачу Используя циклы, создайте Паскаль программу для решения задачи:...

Найти сумму всех четных элементов двумерного массива
Найти сумму всех четных элементов двумерного массива целых чисел A.

Найти сумму четных элементов массива целых чисел
В чём ошибка? //Найти сумму четных элементов массива целых чисел. #include "stdafx.h" #include...

3
5 / 5 / 0
Регистрация: 02.07.2012
Сообщений: 10
25.11.2012, 14:47 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
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.
0
0 / 0 / 0
Регистрация: 25.11.2012
Сообщений: 5
25.11.2012, 15:59  [ТС] 3
Что то как-то не очень понятно)
0
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
02.12.2012, 16:59 4
так понятнее?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.12.2012, 16:59
Помогаю со студенческими работами здесь

Найти сумму четных элементов массива целых чисел
найти сумму четных элементов массивацелых чисел. Размерность массива - 20.Заполнение массива...

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

Найти сумму четных элементов массива целых чисел
Найти сумму четных элементов массива целых чисел. Размерность массива - 20. Заполнение массива...

Дан массив целых чисел. Найти сумму всех четных элементов стоящих на нечетных местах.
Доброго всем времени суток! Помогите с программой. Дан массив целых чисел. Найти сумму всех...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru