Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var a,b:array of integer;
    n,i,p,o:integer;
begin
readln(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.