Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
2 / 2 / 0
Регистрация: 31.05.2016
Сообщений: 89
1

С использованием функций

22.12.2016, 00:22. Просмотров 913. Ответов 1
Метки нет (Все метки)


С использованием функций
Массив А вводится с клавиатуры. Найти сумму его элементов с четными номерами, произведение отрицательных элементов. Размер произвольный.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var a:array [1..100] of integer; 
n,i,sum,p:integer; 
begin 
Write('Размер массива: ');readln(n); 
p:=1; 
For i:=1 to n do 
begin 
Write('a[',i,'] = ');readln(a[i]); 
if not odd(i) then sum:=sum+a[i]; 
if a[i]<0 then p:=p*a[i]; 
end; 
Writeln; 
Writeln('Сумма с четными номерами - ',sum); 
Writeln('Произведение отрицательных - ',p); 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.12.2016, 00:22
Ответы с готовыми решениями:

Программирование функций. Сделать решение задачи с использованием функций или процедур VBA excel
1. Заданы матрицы С(4,4) и D(3,3). Определить индексы макси- мального элемента каждой из матриц...

Сделать задачу с использованием функций. Ввод-вывод значений массивов осуществить с п0м0щью функций
Задача 1.Даны коэффициенты многочленов P(x) и Q(x) 5-й степени и дано вещественное a. Вычислить...

Программирование с использованием функций
Вот, что есть вариант 3 на с Программа неправильно работает Помогите, пожалуйста #include...

Задача с использованием функций
Условие задачи на картинке: 1)

__________________
Помогаю в написании студенческих работ здесь.
1
Модератор
63219 / 46976 / 32377
Регистрация: 18.05.2008
Сообщений: 113,852
22.12.2016, 09:33 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
type mas=array [1..100] of integer;
function sum(a:mas;n:integer):integer;
var i,s:integer;
begin
s:=0;
for i:=2 to n do
if not odd(i) then s:=s+a[i];
sum:=s;
end;
function prz(a:mas;n:integer):integer;
var i,p,k:integer;
begin
k:=0;
p:=1;
for i:=1 to n do
if a[i]<0 then
 begin
  k:=1;
  p:=p*a[i];
 end;
if k=0 then prz:=0
else prz:=p;
end;
var a:mas;
    n,i:integer;
begin
write('Размер массива n=');
readln(n);
writeln('Введите элементы массива, целые числа');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
writeln('Сумма с четными номерами=',sum(a,n));
writeln('Произведение отрицательных=',prz(a,n));
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2016, 09:33

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Вычисления с использованием функций
Еще есть задачка на функции... Я ее набросал... но проблема вот в чем не могу сделать через...

Программирование с использованием функций
Написать и отладить программу, которая использует функции, алгоритм которых определяется вариантом....

Программирование с использованием функций
Получите все двузначные натуральные числа в которых нет одинаковых цифр. Использовать процедуру...

Код с использованием функций
Помогите, плиз, переделать програмку С ИСПОЛЬЗОВАНИЕМ ФУНКЦИЙ. #include &lt;iostream&gt; #include...


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

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

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