uses crt;
var a:array[1..100] of integer;
n,i:byte;
begin
clrscr;
write('Размер массива n=');
readln(n);
writeln('Введите элементы массива:');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
clrscr;
writeln('Массив:'); ;
for i:=1 to n do
write(a[i],' ');
writeln;
writeln('Элементы равные двум:');
for i:=1 to n do
if a[i]=2 then
writeln('a[',i,']=',a[i]);
readln
end.
Running "h:\...\fp110317_nadja_yak\fp110317_nadja_yak.exe "
Размер массива n=4
Введите элементы массива:
a[1]=2
a[2]=2
a[3]=2
a[4]=2
Массив:
2 2 2 2
Элементы равные двум:
a[1]=2
a[2]=2
a[3]=2
a[4]=2
Running "h:\...\fp110317_nadja_yak\fp110317_nadja_yak.exe "
Размер массива n=5
Введите элементы массива:
a[1]=1
a[2]=3
a[3]=4
a[4]=5
a[5]=6
Массив:
1 3 4 5 6
Элементы равные двум:
Running "h:\...\fp110317_nadja_yak\fp110317_nadja_yak.exe "
Размер массива n=2
Введите элементы массива:
a[1]=2
a[2]=1
Массив:
2 1
Элементы равные двум:
a[1]=2
Running "h:\...\fp110317_nadja_yak\fp110317_nadja_yak.exe "
Размер массива n=4
Введите элементы массива:
a[1]=1
a[2]=1
a[3]=3
a[4]=2
Массив:
1 1 3 2
Элементы равные двум:
a[4]=2