var a,b: array[1..10] of Integer;
i,n: integer;
begin
n:=1;
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do
begin
if a[i]<>0 then
begin
b[n]:=a[i];
inc(n);
end;
end;
if n=1 then writeln('Элементов нет') else
for i:=1 to n-1 do writeln(b[i]);
end.
D1)прямая горизонтальная линия
2) любой из этих рисунков
<h3>// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
if ReadInteger('Введите x:').IsOdd then Print('Это нечетное число')
else Print('Это четное число')
end.
Графика - вид исскуства, использующий графические примитивы.
Достоинства растровой графики:
1. Распространённый тип изображения.
Недостатки растровой графики:
1. Многоцветные растровые изображения имеют большой объём.
2. При уменьшении несколько соседних точек объединятся в одну, то есть теряется качество изображения.
Можно чуток оптимизировать, чтобы красивее смотрелось