1. Имеется целочисленный массив, состоящий из 15 элементов: a) Найти сумму a[1] и a[7] элементов; b) Найти разность a[9] и a[3] элементов; c) Найти среднее арифметическое всех элементов массива; d) Найти произведение всех элеме...
1. Имеется целочисленный массив, состоящий из 15 элементов: a) Найти сумму a[1] и a[7] элементов; b) Найти разность a[9] и a[3] элементов; c) Найти среднее арифметическое всех элементов массива; d) Найти произведение всех элементов массива.
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы