Исправте ошибки

const n=10;
var a:array[1..n]of integer;
i, c: integer;
s,p:real;
begin
randomize;
p:=1;
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:4);
p:=p*a[i] ;
s:=s+a[i];
end;
writeln;
writeln('P = ',p, ' S= ',s);
end.

Question

Информатика: Исправте ошибки const n=10; var a:array[1..n]of integer; i, c: integer; s,p:real; begin randomize; p:=1; for i:=1 to n do begin a[i]:=random(100)-50; write(a[i]:4); p:=p*a[i] ; s:=s+a[i]; end; writeln; writeln( P = ,p, S= ,s); end.

SashaSvey · Accepted Answer

1) Среднее значение - это сумма элементов деленная на кол-во элементов. Поскольку в формуле указан диапазон В1:D1 то рассматриваются элементы в ПЕРВОМ (1) столбце и строки В, С, D. Т.е. всего 3 элемента. Следовательно их сумма будет равна СРЕДНЕЕ ЗНАЧЕНИЕ умножить КОЛ-ВО ЭЛЕМЕНТОВ 4 * 3 = 12.

Во второй формуле диапазон увеличен на 1 ячейку. И мы знаем сумму 4 элементов и сумму 3 элементов. Искомый элемент - это разница

9 - 12 = -3

ответ -3

2) Аналогичные рассуждения. ответ -11

3) ответ 7

Объяснение:

Исправте ошибки const n=10; var a:array[1..n]of integer; i, c: integer; s,p:real; begin randomize; p:=1; for i:=1 to n do begin a[i]:=random(100)-50; write(a[i]:4); p:=p*a[i] ; s:=s+a[i]; end; writeln; writeln('P = ',p, ' S= ',s); end.

MOGZ ответил

Исправте ошибки

const n=10;
var a:array[1..n]of integer;
i, c: integer;
s,p:real;
begin
randomize;
p:=1;
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:4);
p:=p*a[i] ;
s:=s+a[i];
end;
writeln;
writeln('P = ',p, ' S= ',s);
end.