Var A:array[1..5] of integer; i,O,P:integer; Begin Write('Введите массив A(5): '); O:=0; P:=0; For i:= 1 to 5 do Begin Read(A[i]); if A[i] < 0 then O:=O+1 else if A[i] > 0 then P:=P+1; End; WriteLn('Количество отрицательных: ',O); WriteLn('Количество положительных: ',P); End.
Заполнение случайными числами:
Const N = 5; Var A:array[1..N] of integer; i,O,P:integer; Begin Randomize; Write('Введите массив A(5):'); O:=0; P:=0; For i:= 1 to N do Begin A[i]:=random(2*N+1)-N; Write(' ',A[i]); if A[i] < 0 then O:=O+1 else if A[i] > 0 then P:=P+1; End; WriteLn; WriteLn('Количество отрицательных: ',O); WriteLn('Количество положительных: ',P); End.
1. компьютерная графика – это наука, один из разделов информатики, изучающая способы формирования и обработки изображений с компьютера. 2. ве́кторная гра́фика — способ представления объектов и изображений в компьютерной графике, основанный на описании элементарных объектов, обычно называемых примитивами, таких как: точки, линии, сплайны, кривые безье, круги и окружности, многоугольники. объекты векторной графики являются графическими изображениями объектов. термин "векторная графика" используется для пояснения различий от растровой графики, в которой изображение представлено в виде графической матрицы. 3. плоттер (графопостроитель) — устройство для автоматического вычерчивания с большой точностью рисунков, схем, сложных чертежей, карт, трехмерных изображений и другой графической информации на бумаге размером до a0. так же как и у принтеров, изображение на бумаге формируется при печатающей головки.
182,29
Объяснение:
формула
=(62+131)-2*(75/(7+7))