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

Из двух заданных вывести на экран тот массив, в котором больше четных элементов

12.03.2015, 11:35. Показов 1236. Ответов 2
Метки нет (Все метки)

из массивов А(15),B(18) вывести на экран тот массив, у которого больше четных элементов.( по возможности использовать процедуры и функции).
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.03.2015, 11:35
Ответы с готовыми решениями:

Заданы 2 одномерных массива по 10 элементов. Написать (вывести на экран) тот массив, сумма которого больше
Помогите решить.. Заданы 2 одномерных массива по 10 элементов. Написать (вывести на экран) тот...

Из массивов вывести на экран тот, в котором больше четных элементов
Из массивов А(15),В(18) вывести на экран тот массив, у которого больше четных элементов.(по...

Из двух одномерных массивов вывести на печать тот, в котором больше отрицательных элементов
Дано: массивы A(10), B(15). Напечатать тот массив, в котором больше отрицательных элементов....

Найти в каждом заданном массиве количество максимумов, и вывести на экран тот массив, в котором больше максимумов
Помогите пожалуйста) Даны массивы А(10), В(10), С(10). Надо найти в каждом массиве количество...

2
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7082 / 4205 / 2733
Регистрация: 22.11.2013
Сообщений: 12,055
Записей в блоге: 1
12.03.2015, 17:20 2
Лучший ответ Сообщение было отмечено kirilenko как решение

Решение

Пользуясь тем, что раздел про Free Pascal:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
{$mode ObjFPC}
function CountEvens(const a: array of Integer): Integer;
var e: Integer;
begin
  Result:=0;
  for e in a do if not Odd(e) then Inc(Result);
end;
 
var
  a: array [1..15] of Integer;
  b: array [1..18] of Integer;
  e: Integer;
begin
  { ... }
  e:=CountEvens(a)-CountEvens(b);
  if e>0 then for e in a do Write(' ',e)
  else if e<0 then for e in b do Write(' ',e)
  else WriteLn('Количество четных элементов одинаково.');
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32244 / 20884 / 8086
Регистрация: 22.10.2011
Сообщений: 36,119
Записей в блоге: 7
12.03.2015, 18:53 3
Пользуясь тем, что это FPC, логичнее было бы написать:
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
{$mode ObjFPC}
uses math;
 
function CountEvens(const a: array of Integer): Integer;
var e: Integer;
begin
  Result:=0;
  for e in a do Inc(Result, Ord(not Odd(e)));
end;
 
procedure Print(const a : array of integer);
var v : integer;
begin
  for v in a do write(v:5);
  writeln;
end;
 
var
  a: array [1..15] of Integer;
  b: array [1..18] of Integer;
  e: Integer;
begin
  { ... }
  case CompareValue(CountEvens(a), CountEvens(b)) of
  -1 : Print(b);
   0 : writeln('Количество четных элементов одинаково.');
   1 : Print(a);
  end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2015, 18:53
Помогаю со студенческими работами здесь

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

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

Вывести на экран тот массив, у кого сумма элементов главной диагонали меньше
Даны два двухмерных массива размерности n x n. Вывести на экран тот из них у кого сумма элементов...

Записать в новый текстовый файл тот массив, в котором второй элемент больше, чем в остальных
Помогите найти ошибку, выводится не то что надо ?? Компоненты заданного типизированного файла –...


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

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

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