Сканируется цветное изображение размером 5,08×5,08 дюйм. Разрешающая сканера — 1200×1200 dpi, глубина - id1646071520211002 от Tomkaya 02.10.2021 13:42

Question

Информатика: Сканируется цветное изображение размером 5,08×5,08 дюйм. Разрешающая сканера — 1200×1200 dpi, глубина цвета — 8 бита. Какой информационный объём будет иметь полученный графический файл

Tomkaya · Accepted Answer

1)
var A,B: array[1..200] of real;
N, i: integer;
begin
write('Введите количество элементов массивов A и B: ');
readln(N);
writeln('Введите значения элементов массива A');
for i:=1 to N do read(A[i]);
writeln();
for i:= 1 to N do
if (i mod 2 = 0) then B[i]:=i*A[i]
else B[i]:=-A[i];
writeln('Массив В:');
for i:=1 to N do write(B[i]:2:2,' ');
end.

2)
var A: array[1..200] of integer;
N, i: integer;
begin
write('Введите количество элементов массива A: ');
readln(N);
randomize;
for i:=1 to N do
A[i] := random(86)-15;
writeln('Массив А: ');
for i:=1 to n do write(A[i], ' ');
end.

MOGZ ответил