Безотлагательно!!!!!!!!!!!!!!!!!!!ABC Pascal!!!!!! Дан одномерный массив А. Отсортировать массив по

Безотлагательно!!!!!!!!!!!!!!!!!!!ABC Pascal!!!!!! Дан одномерный массив А. Отсортировать массив по убыванию, отыскать количество отрицательных частей массива, стоящих на четных местах

Задать свой вопрос
1 ответ
Program n2;
const n=10;
var a: array [1..n] of integer;
i,k,j,temp: integer;
begin
randomize;
writeln('исходный массив');
k:=0;
for i:=1 to n do
begin
a[i]:=random(201)-100;
write(a[i],' ');
end;
writeln;
writeln('полученный массив: ');
for i:=1 to n do
for j:=i to n do
if a[j]gt;a[i] then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp
end;
for i:=1 to n do begin
write(a[i],' ');
if (a[i]lt;0) and (i mod 2=0) then k:=k+1;
end;
writeln;
write('кол-во отрицательных частей на четных местах: ',k);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт