Question

Определите, есть ли в массиве числа от 3 до 7. Укажите их номер.

Answer 1

uses crt;
const n = 5;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
readln(a[i]);
isize:=0;
for i:=1 to n do
if ((a[i]>2)and(a[i]<8)) then
writeln(i);
end.