Найти произведение ненулевых элементов массива - Turbo Pascal

Формулировка задачи:

В массиве Х(N) найти произведение ненулевых элементов, а также количество элементов, превышающих значение среднего арифметического элементов массива

Код к задаче: «Найти произведение ненулевых элементов массива - Turbo Pascal»

textual
const n=5;
var i,k,pr:integer;
x:array[1..n] of integer;
sr:real;
begin
pr:=1;
for i:=1 to n do
begin
readln(a[i]);
if a[i]<>0 then pr:=pr*a[i];
sr:=sr+a[i];
end;
writeln('pr=',pr);
sr:=sr/n;
for i:=1 to n do
if a[i]>sr then k:=k+1;
write('k=',k);
readln
end.

10   голосов, оценка 3.900 из 5


СОХРАНИТЬ ССЫЛКУ