Запиши ответ. Сколько бит памяти занимает чёрно-белое изображение (без градаций серого) шириной 30 точек - id2099589820220914 от anya374 14.09.2022 06:53

Question

Информатика: Запиши ответ. Сколько бит памяти занимает чёрно-белое изображение (без градаций серого) шириной 30 точек и Высотой 300 точек

anya374 · Accepted Answer

Const
n = 40;

var
x: array[1..n] of integer;

procedure InitMas(p: integer);
var
i: integer;
begin
Writeln('Элементы массива');
for i := 1 to p do
begin
    x[i] := Random(101) - 50;
    Write(x[i]:4);
end;
Writeln
end;

function avg(m: integer): real;
var
i, s: integer;
begin
s := 0;
for i := 1 to m do s := s + x[i];
avg := s / m
end;

begin
Randomize;
InitMas(10);
Writeln('Среднее арифметическое равно ', avg(10))
end.

Тестовое решение:
Элементы массива
44 -40 -1   9 48 -12 48 -39 -13 32
Среднее арифметическое равно 7.6

Запиши ответ. Сколько бит памяти занимает чёрно-белое изображение (без градаций серого) шириной 30 точек и Высотой 300 точек

MOGZ ответил