Дан линейный массив в размере 5 вывести элементы больше 10
Дан линейный массив в размере 5 вывести элементы больше 10
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы