Вопрос по информатике:
1. Имеется целочисленный массив, состоящий из 15 элементов: a) Найти сумму a[1] и a[7] элементов; b) Найти разность a[9] и a[3] элементов; c) Найти среднее арифметическое всех элементов массива; d) Найти произведение всех элементов массива.
- 24.10.2015 20:53
- Информатика
- remove_red_eye 2679
- thumb_up 47
Ответы и объяснения 2
const n = 15;
var
a: array[1..n] of integer;
i, x: integer;
begin
for i := 1 to n do begin
a[i] := random(50);
write(a[i], ' ');
x := x + a[i];
end;
writeln;
writeln('a[1] + a[7] = ', a[1] + a[7]);
writeln('a[9] - a[3] = ', a[9] - a[3]);
writeln('Среднее арифметическое: ', (x / n):0:2);
end.
- 25.10.2015 21:58
- thumb_up 23
var
a: array[1..15] of integer;
i,n: integer;x:real;m:int64;
begin
for i := 1 to 15 do
readln(a[i]);m:=1;
for i:=1 to 15 do begin
x:=x+a[i];m:=m*a[i];end;
writeln('a[1]+a[7]:=',a[1]+a[7]);
writeln('a[9]-a[3]:=',a[9]-a[3]);
writeln('srednee ar.:=',x/15);
writeln('proizvedenie:=',m);
end.
- 26.10.2015 16:09
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.