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.
Тоже делаю но знаю ответ только на 1,3,4 и 7 так себе 1)В 1666 г. в московской пищепитательнице при церкви Ковра (Павла) и Иоанна поселился воинственный барабашка – демон. Царь Алексей Михайлович велел священными молитвами изгнать злокозненного духа. Митрополит Илларион 3) мыс "Бурь" или же по другому мыс " Доброй надежды" частые грозы, дожди и ураганы, а так же затуманенность приводили к гибели кораблей( уточняю, что таких как этот мыс есть еще несколько. Но не возможно понять какой именно, мне кажется этот более подходящий) Явление миража происходили из-за тумана. 4) Меркурий. за 176 дней делает оборот вокруг солнца. То есть одни сутки этой планеты длятся два ее года. 7) известно что длинношерстные тойтерьеры разводились в Москве, точнее их там вывели.
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.