Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Дмитрий_36
3 / 3 / 4
Регистрация: 14.10.2013
Сообщений: 67
1

Двумерный массив: сумма четных элементов во всём массиве

15.10.2013, 11:55. Просмотров 829. Ответов 2
Метки нет (Все метки)

Дан двухмерный массив С(n,m). Написать программу на языке Turbo Pascal, которая находит сумму четных элементов во всём массиве.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.10.2013, 11:55
Ответы с готовыми решениями:

Найти сумму четных элементов во всём массиве
Дан двухмерный массив С(n,m). Написать программу на языке Turbo Pascal, которая...

Двумерный массив. Сумма элементов.
Задан двумерный массив. Найти сумму элементов первого столбца без одного...

Массив. Если сумма элементов диагоналей четное число, то найти сумму элементов четных и столбцов
Дан двумерный массив 9 на 9. Если сумма элементов главной и побочной диагонали...

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

Двумерный массив. Найти количество четных элементов пятого и шестого столбца
Дана матрица S(5,10) целых чисел. Найти количество четных элементов пятого и...

2
Puporev
Модератор
55066 / 42330 / 29233
Регистрация: 18.05.2008
Сообщений: 100,027
15.10.2013, 12:05 2
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
const nmax=15;
var c:array[1..nmax,1..nmax] of integer;
    m,n,i,j:byte;
    s:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
s:=0;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    c[i,j]:=-20+random(41);
    write(c[i,j]:4);
    if c[i,j] mod 2=0 then s:=s+c[i,j]
   end;
  writeln;
 end;
write('Сумма четных=',s);
readln
end.
1
ildwine
Супер-модератор
3016 / 1895 / 1230
Регистрация: 04.03.2013
Сообщений: 4,637
Записей в блоге: 1
15.10.2013, 12:07 3
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  c : array[1..100, 1..100] of integer;
  i, j, m, n : word;
  s : integer;
begin
  s := 0;
  randomize;
  writeln('введите n и m');
  readln(n, m);
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      c[i,j] := random(20) - 10;
      write(c[i,j]:5);
      if c[i,j] mod 2 = 0 then s := s + c[i,j]
    end;
    writeln
  end;
  writeln('сумма четных: ', s);
  readln 
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.10.2013, 12:07

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru