Информатика, вопрос задал vadik12 , 9 лет назад

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

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

Ответил Light1974
0
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.
Новые вопросы