Регистрация
димкаа2
10.08.2022 13:41
Информатика
Есть ответ 👍

Дано 25 вещественных чисел. Найти
количество чисел, больших некоторого k

Как правильно под это задание начертить цикл с параметром?
Никак не могу понять

193
472
Посмотреть ответы 1

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

Метеор73
Метеор73
4,4(3 оценок)
Var   i: integer;   d: array[1..11] of real;   p: real; begin   for i: =1 to 11 do     begin       write(i,' элемент массива: ');       read(d[i]);     end;   i: =1;   p: =1;   while i < = 11 do     begin       if d[i] < 0 then p: =p*d[i];       i+=2;     end;   write(p); end.

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