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

Question

Информатика

Натала

18 марта, 10:37

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

+3

Ответы (1)

Знаете ответ?

Кирила · Answer 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]>8 then

Begin

k:=k+1;

Write (A[i],' ') ;

End;

if k=0 then WriteLn ('Таких чисел нет')

End.