Заполнить массив случайными числами на интервале от -10 до +15. распечатать исходный массив. подсчитать количество положительных и отрицательных. поменять знак у каждого элемента массива. распечатать. посчитать количество отрицательных и положительных

Dfhlp Dfhlp    1   03.06.2019 14:10    7

Ответы
Hutorttt Hutorttt  03.07.2020 21:28
Uses crt;
const n=10;
var a:array [1..n] of integer;
    i,p,o: integer;
begin
     p:=0;
     o:=0;
     for i:=1 to  n do
     begin
          a[i]:=random(27)-10;
          write(a[i],' ');
          if a[i]>0 then inc(p);
          if a[i]<0 then inc(o);
     end;
     writeln;
     writeln('положительных:',p); p:=0;
     writeln('отрицательных:',o); o:=0;
     for i:=1 to n do
     begin
          a[i]:=-a[i];
          write(a[i],' ');
          if a[i]>0 then inc(p);
          if a[i]<0 then inc(o);
     end; 
     writeln;
     writeln('положительных:',p);
     writeln('отрицательных:',o);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика