Дан одномерный массив [-50:50], нужно вывести числа больше 7, программа ** Паскаль

Question

Дан одномерный массив [-50:50], нужно вывести числа больше 7, программа на Паскаль

Answer 1

Var a:array[-50..50] of longint;i:longint;
Begin
for i:=-50 to 50 do
if (i>7) then write(i,' ');
writeln;
End.