Вопрос по информатике:
Дано: массивы R(10),Q(10),P(10). Сформировать массив X(3),где
X(1) - сумма элементов массива R, значения которых лежат в интервале [2;4];
X(2) - то же для массива Q;
X(3) - то же для массива P.
Вычисление суммы элементов массива, значения которыхлежит в интервале [2;4], оформить в виде подпрограммы.
PascalABC
Вот такие задачи нам задают.Прошу помощи.Заранее спасибо =)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 23.08.2015 17:23
- Информатика
- remove_red_eye 16251
- thumb_up 44
Ответы и объяснения 2
Type arr = array[1..10] of integer; {создаем новый тип, являющийся массивом}
var
i:integer;
s:real;
R,Q,P:arr;
X:array[0..3] of integer;
function Sum(a: arr): integer; {функция вычисления суммы элементов массива}
var i:integer;
begin
foreach i in a do {вычисляем сумму элементов по заданному правилу}
if (i>=2) and (i<=4) then Result :=Result+i
end; {результатом функции будет сумма}
begin
randomize; {заполняем массивы случайными числами}
for i:=1 to 10 do
begin
R[i]:=random(10);
Q[i]:=random(10);
P[i]:=random(10)
end;
write('R: '); {распечатываем содержимое массивов на экране}
for i:=1 to 10 do write(R[i],' ');
writeln;
write('Q: ');
for i:=1 to 10 do write(Q[i],' ');
writeln;
write('P: ');
for i:=1 to 10 do write(P[i],' ');
writeln; {а тут собственно само решение задачи}
X[1]:=Sum(R);{передаем в ф-цию Sum массив R, она считает сумму и записывает в Х1}
writeln('X[1]=',X[1]);
X[2]:=Sum(Q);{передаем в ф-цию Sum массив Q, она считает сумму и записывает в Х2}
writeln('X[2]=',X[2]);
X[3]:=Sum(P);{передаем в ф-цию Sum массив P, она считает сумму и записывает в Х3}
writeln('X[3]=',X[3])
end.
- 25.08.2015 10:53
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.