//PascalABC.NET v3.3 1633
const n = 15;
var arr: array [1..n] of integer;
begin
for var i:=1 to n do
arr[i]:=random(-5,5);
write('Исходный массив: ');
arr.PrintLn(', ');
var count:=0;
for var i:=1 to n do
if arr[i] > 0 then
count += 1;
writeln('Количество положительных элементов: '+count);
end.
Графика с представлением изображения в виде совокупностей точек называется:
Ответ. 2) растровой.
Ввод: r ^ x ^ y С/П.
x^2 <-> x^2 + <-> x^2 - x>=0 11 1 С/П 0 С/П
Вывод: 1, если попадает, иначе 0.
var s : string;
begin
while (length(s)>0) do begin
s:=copy(s,1,length(s)-1);
write(s);
writeln;
end;
end.