Дан линейный массив в размере 5 вывести элементы больше 10

Question

Информатика

Агапий

28 декабря, 08:06

Дан линейный массив в размере 5 вывести элементы больше 10

+2

Ответы (1)

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

Элюна · Answer 1

Program zadacha;

var

a:array[1 ... 5] of real; {можно взять и тип integer}

i:integer;

Begin

for i:=1 to 5 do

begin

writeln ('Введите элемент массива') ;

readln (a[i]) ;

end;

for i:=1 to 5 do

if a[i]>10 then write (a[i],' ') ;

writeln;

End.