Регистрация
eminsultanov7
21.01.2022 21:33
Информатика
Есть ответ 👍

до четверга сдать нужно

108
434
Посмотреть ответы 1

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

GAMAEW66
GAMAEW66
4,6(22 оценок)
Const     n = 5; var     a: array[1..n] of real;     i,k: integer; begin for i: = 1 to n do       read(a[i]); k: =0; for i: = 1 to n do       if a[i]> 8 then             begin             k: =k+1;             write(a[i],' ');             end; if k=0 then writeln('таких чисел нет') end.

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