• Дан массив, содержащий N элементов и заполненный случайными числами от -10 до 9. Сформировать новый массив из значений элементов, стоящих на четных местах. Подсчитать количество отрицательных и положительных значений элементов в новом массиве.

Ответы 1

  • var a,b:array of integer;    n,i,p,o:integer;beginreadln(n);setlength(a,n);for i:=0 to n-1 do a[i]:=random(-10,9);n:=n div 2;setlength(b,n);for i:=0 to n-1 do begin  b[i]:=a[2*i];  if b[i]>0 then p+=1 else if b[i]<0 then o+=1;  write(b[i],' ');end;writeln();writeln('Положительных ',p);writeln('Отрицательных ',o);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years