Надо составить массив n*m
где n-номер строки
ввести переменную max
if n>max then max:=n
потом пишешь writeln(n)
Program NekitZor;
const
n=16;//1-Именованная переменная количество елементов
var
a:array[1..n] of integer;
k:integer;
i:integer;
begin
for i:=1 to n do
a[i]:=random(20);//2-Массив чисел, задал рандомно не больше 20
for i:=1 to n do write(a[i],' ');//3-Вывел массив в строку
for i:=1 to n do
if a[i]<11 then k:=k+1;//4-Подсчитал количество елементов меньше 11<span>
</span>writeln();
writeln();
writeln('Количество елементов меньше 11 = ',k);
end.
флешка 400 байт потому что там больше объём
Вспоминаем, что 1 дюйм = 2.54 см, а dpi - это количество пикселей в одном дюйме.
Тогда изображение размером 20×15 см после сканирования будет состоять из (20/2.54×400)*(15/2.54×600) ≈ 11 160 023 пикселей.
При глубин цвета 3 байта файл займет 11 160 023×3 = <span>
33 480 067</span> байт =
33 480 067/1024² ≈ <u>31.9 Мб</u><u />
Цветность 256 = 2⁸ использует 8 бит = 1 байт для хранения информации о точке. Количество точек 800×800 = 640 000 и столько же байт они займут.
Или, в килобайтах, 640 000/1024 = <u>625 Кбайт</u>