Дан массив из 8 элементов 4:-2:-4:0:2:3:1:5 найти позицию элемента равного двум

Question

Дан массив из 8 элементов 4:-2:-4:0:2:3:1:5 найти позицию элемента равного двум

Comments

Массив заполнять с клавиатуры или можно описать как константу?

Answer 1

Массив заполнен сразу

const a: array[1..8] of integer=(4,-2,-4,0,2,3,1,5);
var i:integer;
begin
for i:=1 to 8 do
if a[i]=2 then writeln('Pozitciya elementa ravnogo 2 = ',i);
end.

Массив заполняется с клавиаутры

var
a: array[1..8] of integer;
i:integer;
begin
for i:=1 to 8 do
readln(a[i]);
for i:=1 to 8 do
if a[i]=2 then writeln('Pozitciya elementa ravnogo 2 = ',i);
end.