Question

Ввести массив А(N), N=7. Определите порядковый номер элемента, значение которого равно 49. Поменяйте местами элемент, значение которого равно 49, и первый элемент массива. Полученные результаты выведите на экран

Answer 1

const

n=7;

var

a:array [1..n] of integer;

i,k,buf:integer;

begin

for i:=1 to n do begin

write ('A[',i,'] = ');readln(a[i]);

if a[i]=49 then k:=i; 

end;

writeln ('Before:');

for i:=1 to n do write(a[i],' ');

writeln;

writeln ('Index: ',k): 

buf:=a[1];

a[1]:=a[k];

a[k]:=buf;

writeln ('After: ');

for i:=1 to n do write (a[i],' ');

readln;

end.