введите массив из 5 частей с улавиатуры и выведите те элементы

Введите массив из 5 частей с улавиатуры и выведите те элементы массива которые больше 8 если таких элементов нет то сказать об этом

Задать свой вопрос
1 ответ
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]gt;8 then
       Begin
       k:=k+1;
       Write(A[i],' ');
       End;
if k=0 then WriteLn('Таких чисел нет')
End.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт