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

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

28.02.2013, 17:00. Просмотров 388. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Если сумма четных чисел массива Т меньше суммы четных чисел массива С, то найти H (Pascal ABC):

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

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

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

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

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

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

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
Привет! Вот еще темы с решениями:

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

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

Найти и вывести для каждой строки массива количество четных чисел
дан произвольный двумерный массив целых чисел . размерность 5 на 6 . найти и...

Найти сумму всех четных элементов массива, заданного датчиком случайных чисел.
1. Найти сумму всех четных элементов массива, заданного датчиком случайных...


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

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

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