Регистрация
krisb469
21.01.2020 15:40
Информатика
Есть ответ 👍

Оцените следующее выражение: list(range(1, 20, 3))

213
224
Посмотреть ответы 1

Ответы на вопрос:

rita239
rita239
4,6(96 оценок)

Составил тебе только программу. Для блок-схемы создавай отдельную тему.

const

 a = 3.14;

 b = -7.8;

 n = 15;

 x: array[1..n] of real = (12.37, 16.55, 2.43, 0.81, 0.32, 1.345, -12.18, 0.15, -4.314, 1.29, 54.38, 0.214, -3.837, 0.918, -75.014);

var

 i, k: integer;

 p: real;

begin

 k := 0;

 p := 1;

 for i:=1 to n do

   if (x[i]>0) and (x[i]>b) then

   begin

     p := p * x[i];

     inc(k);

   end;

 if k = 0 then writeln('Нет искомых элементов в массиве')

 else writeln('Количество искомых элементов: ',k,'; их произведение = ',p:0:3);

end.

Популярно: Информатика