Дан линейный массив в размере 5 вывести элементы больше 10
Answers & Comments
Light1974
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.
Answers & Comments
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.