Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/9: Рейтинг темы: голосов - 9, средняя оценка - 5.00
0 / 0 / 1
Регистрация: 11.04.2018
Сообщений: 108
1

Найти сумму нечётных чисел и количество чётных чисел в двух массивах

06.06.2018, 16:09. Просмотров 1825. Ответов 1
Метки нет (Все метки)


Пусть дано 2 массива. Составить программу для нахождения суммы нечетных чисел и количества четных чисел в обоих массивах. Заполнение, вывод и обработку массива оформить в виде подпрограммы-процедур и подпрограмм-функций.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.06.2018, 16:09
Ответы с готовыми решениями:

В двух заданных массивах найти количество чётных и нечётных чисел (в первом - чётных, во втором - нечётных)
Даны два массива целых чисел А (15) и В (15). Найти количество четных чисел в первом массиве и...

Найти сумму всех нечетных чисел и количество четных чисел
Помогите пожалуйста решить задачи или найти похожие решёные задачи. Буду рад любой помощи. Заранее...

Для N вводимых с клавиатуры чисел определить количество четных чисел и сумму нечетных чисел
Для N вводимых с клавиатуры чисел определить количество четных чисел и сумму нечетных чисел.

Как из последовательности 20 чисел вычислить сумму нечетных чисел и определить количество четных чисел.
Помогите пожалуйста !!!! Из последовательности 20 чисел вычислить сумму нечетных чисел и...

1
Эксперт Pascal/Delphi
6558 / 4415 / 4714
Регистрация: 05.06.2014
Сообщений: 21,697
06.06.2018, 18:45 2
Лучший ответ Сообщение было отмечено Егор Ю как решение

Решение

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
const
  n_max = 100;
 
type
  vector = array [1..n_max] of integer;
 
var
  y, x: vector;
 
procedure GenerateVector(n: integer; var a: vector);
var
  i: integer;
begin
  for i := 1 to n do
    a[i] := random(n_max) + 1;
end;
 
procedure PrintVector(n: integer; a: vector);
var
  i: integer;
begin
  for i := 1 to n do
    write(a[i]:4);
end;
 
function SumVector(n: integer; a: vector): integer;
var
  sum, i: integer;
begin
  sum := 0;
  for i := 1 to n do
    if odd(a[i]) then
      sum := sum + a[i];
  SumVector := sum;
end;
 
function QuantityVector(n: integer; a: vector): integer;
var
  k, i: integer;
begin
  k := 0;
  for i := 1 to n do
    if not odd(a[i]) then
      inc(k);
  QuantityVector := k;
end;
 
begin
  randomize;;
  GenerateVector(10, x);
  Write('X: ');
  PrintVector(10, x);
  writeln;
  GenerateVector(10, y);
  Write('Y: ');
  PrintVector(10, y);
  writeln;
  Writeln('Сумма нечетных чисел X: ', SumVector(10, x));
  Writeln('Сумма нечетных чисел Y: ', SumVector(10, y));
  Writeln('Количество четных чисел X: ', QuantityVector(10, x));
  Writeln('Количество четных чисел Y: ', QuantityVector(10, y));
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2018, 18:45

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Найти количество и сумму четных и нечетных чисел в массиве
Дан массив чисел В. Найти кол-во и сумму четных чисел в массиве и кол-во и сумму нечетных чисел,...

Операции с файлами. Найти количество четных, нечетных чисел, квадратов нечетных чисел
Дан файл F его компоненты - целые числа нужно найти: кол-во парных чисел кол-во непарных чисел...

Для чисел от -50 до 50 найти количество четных отрицательных и количество положительных нечетных чисел
Ребят,всем привет! Помогите пожалуйста решить данную задачу.Ее нужно написать на я зыке C...

Найти количество четных чисел первой последовательности и количество нечетных чисел второй
Даны две последовательности целых чисел a1, a2...a8 и b1, b2..b8. Найти количество четных чисел...


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

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

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