Составить блок-схему алгоритма и программу на Паскале для обработки массива из 15 чисел. Вычислить произведение и количество элементов, не равных нулю и больше 5. На проверку нужно прислать код программы и результат работы в виде скриншота.
More Questions From This User See All
Answers & Comments
Ответ:
const
n = 15;
var
i, k: integer;
p: real;
x: array[1..n] of real;
begin
k := 0;
p := 1;
writeln('Введите ', n, ' элементов массива: ');
for i := 1 to n do
begin
readln(x[i]);
if (x[i] <> 0) and (x[i] > 5) then
begin
p := p * x[i];
inc(k);
end;
end;
if k = 0 then
writeln('Нет искомых элементов в массиве')
else
writeln('Количество искомых элементов: ', k, '; их произведение = ', p:0:3);
end.
Объяснение: