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

Если сумма четных чисел массива Т меньше суммы четных чисел массива С, то найти H

28.02.2013, 17:00. Просмотров 901. Ответов 1
Метки нет (Все метки)

Сделайте в pascal ABC

5)Массив с процедурами Даны два одномерных массива целых чисел С и Т из N элементов. Если сумма четных чисел массива Т меньше суммы четных чисел массива С, то найти H= T+5*C, иначе F=C+2*T.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.02.2013, 17:00
Ответы с готовыми решениями:

Создать массив из четных чисел исходного массива, если таких чисел нет то вывести соответственное сообщение
Дан массив натуральных чисел, создать массив из четных чисел исходного массива,...

Необходимо найти суммы нечетных чисел меньше 5 и сумму четных больше пяти в шестизначном числе
Необходимо найти суммы нечетных чисел меньше 5 и сумму четных больше пяти в...

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

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

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

1
TEKJ
13 / 13 / 14
Регистрация: 11.11.2012
Сообщений: 147
01.03.2013, 01:37 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
program mas_proc;
type mas=array [1..10] of integer;
var a,b:mas;
    k,i:integer;
    
    
function summa (var a,b:mas):boolean;
var suma,sumb,i:integer;  
begin
 
for i:=1 to k do
begin
if (a[i] mod 2)=0 then suma:=suma+a[i];
if (b[i] mod 2)=0 then sumb:=sumb+b[i];
end;
 
if sumb>suma then summa:=true else summa:=false;
 
end;    
 
procedure res (var a,b:mas);
var sum,i:integer;
    h:mas;
begin
if summa(a,b)=true then
begin
for i:=1 to k do b[i]:=b[i]*5;
for i:=1 to k do h[i]:=a[i]+b[i];
for i:=1 to k do writeln(h[i]);
end else
begin
for i:=1 to k do a[i]:=a[i]*2;
for i:=1 to k do h[i]:=a[i]+b[i];
for i:=1 to k do writeln(h[i]);
end;
end;
 
    
begin
readln(k);
 
for i:=1 to k do readln(a[i]);
for i:=1 to k do readln(b[i]);
 
res(a,b);
 
 
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.03.2013, 01:37

Найти максимальное среди четных и отрицательных чисел массива
найти max среди четных и отрицательных

Найти сумму элементов четных номеров массива вещественных чисел, больших 9.
Знайти суму елементів парних номерів масиву дійсних чисел, більших за 9. ...

Найти сумму элементов четных номеров массива вещественных чисел, больших 9.
1. Знайти суму елементів парних номерів масиву дійсних чисел, більших за 9. ...


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

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

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