//писал на скорую руку, должно все правильно работать
var
a,plus,minus,d:integer;
c:array[1..50] of integer;
begin
plus:=0;
minus:=0;
for a:=1 to 50 do
c[a]:=random(20)-10;//заполняем массив рандомо
for a:=1 to 50 do//проверям условие
if ((c[a]>0) and (c[a]<>0)) then
plus:=plus + 1
else if ((c[a]<0) and (c[a]<>0)) then
minus:= minus + 1;
Writeln(plus,' ');//кол-во полож
Writeln(minus,' ');//кол-во отриц
if (plus>minus)then
Writeln('Положительных')
<span>else Writeln('Отрицательных');
</span>end.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 program pr; var x,y,z:real; function zxy(x,y:real):real; var f:real; begin f:=exp(y*ln(x)); zxy:=f; end; begin writeln('Введите х'); readln(x); writeln('Введите y'); readln(y); z:=zxy(x,y); writeln('z= ',z); end.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b) := ReadReal2;
if a * b > 0 then Println(a - b)
else Println(a / b)
end.
Компьютер - сложная вычислительная техника, которая помогает человеку, упрощая процесс создания и хранения информации. Одна из главных составляющих компьютера - это системный блок, монитор, клавиатура и компьютерная мышь - без них никуда. Процессор отвечает за все процессы, происходящие в системе. Оперативная память осуществляет эти самые действия. Любители компьютерных игр не обойдутся без хорошей видеокарты, с её помощью повышается графика, за которую так же отвечает монитор и графический драйвер. Материнская плата тоже неотъемлемая часть ПК. Компьютеры- сложная и полезная техника.
Пєро: 1) Пєро загадав 9, 2)9+1=10, 3)10*3=30, 4)30/3=10, 5)10-4=6