Вопрос по информатике:
Имеется целочисленный массив состоящий из N элементов (N - чётное) а)Найти сумму первых N/2 элементов. б)Найти сумму элементов стоящих на чётных позициях. в) Найти произведение элементов стоящих на нечётных позициях. г) Найти сумму чётных элементов стоящих на чётных позициях.
- 10.12.2017 20:43
- Информатика
- remove_red_eye 13651
- thumb_up 9
Ответы и объяснения 1
а)
uses crt;
var n,i,sum:integer;
a:array[1..100] of integer;
begin
writeln('N?');
read(n);
writeln('Элементы?');
for i:=1 to n do
read(a[i]);
for i:=1 to n div 2 do
sum:=sum+a[i];
writeln(sum);
end.
б)
uses crt;
var n,i,sum:integer;
a:array[1..100] of integer;
begin
writeln('N?');
read(n);
writeln('Элементы?');
for i:=1 to n do
begin
read(a[i]);
if i mod 2=0 then
sum:=sum+a[i];
end;
writeln(sum);
end.
в)
uses crt;
var n,i,mult:integer;
a:array[1..100] of integer;
begin
mult:=1;
writeln('N?');
read(n);
writeln('Элементы?');
for i:=1 to n do
begin
read(a[i]);
if i mod 20 then
mult:=mult*a[i];
end;
writeln(mult);
end.
г)
uses crt;
var n,i,sum:integer;
a:array[1..100] of integer;
begin
writeln('N?');
read(n);
writeln('Элементы?');
for i:=1 to n do
begin
read(a[i]);
if (i mod 2=0) and (a[i] mod 2=0) then
sum:=sum+a[i];
end;
writeln(sum);
end.
- 11.12.2017 18:47
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.