Vara:array[1..10]of integer;i,b,c:integer;BeginRandomize;for i:=1 to 10 do begina[i]:=random(31)-10;if a[i]>0 then b:=b+1;if a[i]<0 then c:=c+1;end;writeln('кол-во положительных чисел = ',b,'; кол-во отрицательных чисел = ',c);end.
Параметры моделирования: 1. Классификация текстового документа 2. Основные понятия 3. Создание текстового документа Ход работы 1. Текстовый документ: обычный текст-страница, абзац, строка, слово, символ Таблица – строка, столбец, клетка Программный текст – строка , символ Внедренные объекты – рисунок, электронная таблица, диаграмма, другие объекты 2. Основные понятия и действия - строка заголовка, строка меню, стандартная панель, панель форматирования, маркеры отступа, линейка, ползунок, курсор, строка состояния, рабочая область, полоса прокрутки. 3. Создание документа – запуск программы, набор текста, форматирование, печать.
Первая:
var a:array[1..50] of integer;
i,bol,men,ravn:integer;
begin
for i:=1 to 50 do begin
readln(a[i]);
if a[i]=0 then inc(ravn);
if a[i]<0 then inc(men);
if a[i]>0 then inc(bol);
end;
writeln(ravn,' - чисел равных нулю');
writeln(men,' - чисел меньше нуля');
writeln(bol,' - чисел больше нуля');
<span>end.</span>
Ответ:
program Calc2;
uses
Math;
var
x, y: Real;
begin
Write ('X = ');
ReadLn (x);
y := x - 10 * Sin (x) + Abs (Power (x, 4) - Power (x, 5));
WriteLn ('Результат = ', y);
ReadLn;
end.
Объяснение: