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.
Answers & Comments
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.