Количество пикселей: 1024 * 768 = 786432
Глубина цвета: 24 бит (16777216 = 2²⁴)
Следовательно объем видеопамяти: 24 * 786432 = 18874368 бит, или 2,25 мегабайта.
1.Текстовые данные
2.Графические данные
3.Звуковые данные
4.Мультимедийные данные
Program dlksjijh;
var
A: array[1..40] of integer;
i: integer;
begin
randomize;
writeln('исходные данные:');
for i := 1 to 40 do
begin
A[i] := Random(21);
write(A[i], ' ');
end;
writeln;
writeln('преобрезованный массив:');
for i := 1 to 40 do
begin
if A[i] mod 2 = 0 then
A[i] := Round(A[i]/2)
else
A[i] := A[i] * 3;
write(A[i], ' ');
end;
end.
Имена математических операций - с прописной буквы, и, поскольку есть Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.
У меня работает.
1*10^1+3*10^0+2*10^-1+1*10^-2
1*8^2+2*8^1+3*8^0+2*8^-1
1*16^1+2*16^0+3*16^-1