var arr:array[1..6] of integer;
i:integer;
begin
arr[1]:=2; arr[2]:=5; arr[3]:=9; arr[4]:=15; arr[5]:=0; arr[6]:=4;
for i:=1 to 6 do
if (arr[i] > 3) and (arr[i] < 10) then writeln(arr[i]);
readln;
end.
Объяснение:
var arr:array[1..6] of integer;
i:integer;
begin
arr[1]:=2; arr[2]:=5; arr[3]:=9; arr[4]:=15; arr[5]:=0; arr[6]:=4;
for i:=1 to 6 do
if (arr[i] > 3) and (arr[i] < 10) then writeln(arr[i]);
readln;
end.
Объяснение: