<span>uses crt;
var a: array [1..15] of integer;
i: integer;
begin
writeln('Дан массив');
for i:=1 to 15 do
begin
a[i]:=random(41)-20;
write(a[i]:5);
end;
writeln;
writeln('Преобразованный массив');
for i:=1 to 15 do
if a[i] mod 2=0 then write(a[i]/2:5:1)
else write(a[i]*3:5);
end<span>.</span></span>
Без ОС
-- дверной звонок
с ОС
-- автоматический электрочайник
<span>-- термореле
это всё что я знаю!</span>
1
2
3
4
5
6
7
8
9
<span>uses
Arrays;
begin
Randomize;
var a := CreateRandomIntegerArray(ReadLnInteger('Размер массива: n='), -10, 100);
WriteLn('Создан массив случайных чисел: '); a.Writeln(' ');
for var i := 0 to a.Length-1 do if a[i] > 0 then a[i] := 0;
WriteLn('произведена замена: '); a.Writeln(' ');
end.</span>
3 Кбайта = 3*1024 байт = 3*1024*8 бит
Объем одного пикселя = 3*1024*8 / (64*64) = 6 бит
Количество цветов = 2^6 = 64
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
for var i:=1 to 10 do
Writeln(i:2,8*i*i*i-2:6)
end.
<u><em>Решение:</em></u>
1 6
2 62
3 214
4 510
5 998
6 1726
7 2742
8 4094
9 5830
10 7998