Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Yastreb111
0 / 0 / 0
Регистрация: 28.02.2013
Сообщений: 34
#1

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

28.02.2013, 17:00. Просмотров 348. Ответов 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):

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

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

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

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

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

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

1
TEKJ
13 / 13 / 3
Регистрация: 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. - Pascal ABC
Знайти суму елементів парних номерів масиву дійсних чисел, більших за 9. Найти сумму элементов четных номеров массива вещественных...

Сортировка одномерного массива методом «пузырька», выделение массивов из четных и нечетных чисел. Вычисление суммы нечетных чисел - Pascal
Program Sortirovka; Uses Crt; Var a:array of integer; i,j,k,n,Sum : integer; BEGIN Repeat Clrscr; Write('Vvedite...

Найти сумму четных элементов массива целых чисел - Pascal
найти сумму четных элементов массивацелых чисел. Размерность массива - 20.Заполнение массива осуществить случайными числами от 100 до 200. ...

Если сумма элементов массива окажется больше 10, то найти количество четных элементов - Pascal
program lab3; uses crt; const n=10; type mas=array of real; var a:mas; i,kol:integer; sum,p:real; begin clrscr; ...


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

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

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