1
var i, minus, plus, zero: integer;
t: array [1..15] of integer;
begin
minus := 0;
plus := 0;
zero := 0;
for i := 1 to 15 do
begin
readln(t[i]);
if t[i] > 0 then plus := plus + 1;
else if t[i] < 0 then minus := minus + 1;
else zero := zero + 1;
end;
end.
2
var stroke: string;
begin
readln(stroke);
if length(stroke) mod 2 = 0 then writeln('Четно');
else writeln('Нечетно');
end.
3 (Сейчас далеко от компа, когда буду рядом отредачу)
4
var max, min, i: integer;
A: array[1..20] of integer;
begin
min := a[1];
max := a[1];
for i := 2 to 15 do
begin
if a[i] > max then max := a[i];
if a[i] < min then min := a[i];
end;
end.
Const n=кол-во элементов
var x:array[1..n] of integer;
i,s:integer;
begin
for i:=1 to n do
x[i]:=1+random(9); //заполняем массив числами от 1 до 9
for i:=1 to n do
s:=s+x[i];
writeln(s);
readln;
end.
При использовании палитры из 16 цветов для хранения одного пикселя требуется log(2)16 = 4 бита. Объем памяти для хранения изображения = 24*24*4 бит = 2304 бит
<span><span>var q:integer;</span><span> i,j:integer;</span>begin<span> writeln('введите площадь');</span><span> readln(q);</span><span> for i:=1 to q do</span><span> for j:=i to q div i do</span><span> if i*j=q then writeln('длина: ',j:6,' ширина: ',i)</span><span>end<span>.</span></span></span>