Question

Напишите программу ,которая:

Answer 1

Var i, t:integer;

A:array[1..22]of integer;

B:array[1..22]of Integer ;

Begin

Write('Изначальный массив') ;

For i:=1 to 22 do begin

A[i]:=random(35)-30;

Write(' ', A[i]) ;End;

Writeln('Реверс массива') ;

For i:=1 to 22 div 2 do begin

T:=A[i];

A[i]:=A[22-i+1];

A[22-i+1]:=t;end;

For i:=1 to 22 do write(' ', A[i]) ;

Writeln('Четные отрицательные элементы массива') ;

For i:=1 to 22 do

If (A[i]<0)and(A[i]mod 2=0)then write(' ', A[i]) ;

End.