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

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

Задать свой вопрос
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]lt;0)and(A[i]mod 2=0)then write(' ', A[i]) ;

End.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт