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

Нужно составить программу которая выводит на экран произведение четных элементов массива (массив длинной 6)

13.10.2010, 19:37. Показов 4381. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Вобщем такая задача
составить программу которая выводит на экран произведение четных элементов массива (массив длинной 6)
У самого полный бред выходит.
Помогите пожалуйста. Заранее спасибо.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.10.2010, 19:37
Ответы с готовыми решениями:

Напишите программу, которая заполняет массив из 30 элементов случайными числами в диапазоне от 0 до 100, и выводит значения элементов массива на экран
2. Напишите программу, которая заполняет массив из 30 элементов случайными числами в диапазоне от 0...

Дан одномерный массив. Составить программу, которая считает сумму четных элементов массива
1.Дан одномерный массив. Составить программу, которая считает сумму четных элементов массива...

Составить программу, которая находит положительные элементы массива и выводит их на экран
Нужно написать программу в Borland Delphi 7. Составить программу,которая находит положительные...

Дан двумерный целочисленный массив. Написать программу, которая выводит количество четных элементов в каждом с
Дан двумерный целочисленный массив. Написать программу, которая выводит количество четных элементов...

3
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
13.10.2010, 19:39 2
Pascal
1
2
3
4
5
6
pr:=1;
for i:=1 to 6 do
if not odd(a[i]) then
begin
pr:=pr+a[i];
end;
1
1 / 1 / 1
Регистрация: 08.07.2010
Сообщений: 39
13.10.2010, 20:01  [ТС] 3
SuPeR XaKer,
Огромное спасибо, попробую

Добавлено через 34 секунды
Спасибо огромное, попробую

Добавлено через 19 минут
SuPeR XaKer,
А можно полную версию
0
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
13.10.2010, 20:10 4
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
Uses
 CRT;
Const
 n=6;
var
a:array[1..n] of integer;
i:integer;
pr:real;
begin
Clrscr;
pr:=1;
for i:=1 to n do
begin
write('A[',i,']:=');
readln(a[i]);
if not odd(a[i]) then
begin
pr:=pr*a[i];
end;
end;
writeln;
writeln('PR:=',pr:1:0);
readkey
end.
в верхнем ошибка:
pr:=1;
for i:=1 to 6 do
if not odd(a[i]) then
begin
pr:=pr+a[i];
end;

должно быть
pr:=pr*a[i];
0
13.10.2010, 20:10
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.10.2010, 20:10
Помогаю со студенческими работами здесь

Составить программу, которая находит сумму четных элементов массива
Дан двумерный массив от 1 до n. Составить программу ,которая находит сумму четных элементов массива.

Составить программу, которая вычисляет произведение всех элементов массива
Задан двумерный массив C из 3-х строк и 5-и столбцов. Составить программу, которая вычисляет...

Составить программу, которая вычисляет произведение всех элементов массива
Задан двумерный массив C из 3-х строк и 5-и столбцов. Составить программу, которая вычисляет...

Составить программу нахождения четных элементов двухмерного массива и вывести на экран и его номер
составить программу нахождения четных элементов двухмерного массива и вывести на экран и его номер


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

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

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