2^5 < 50 <2^6 ----> 6 бит для кодировки одного символа
F= 6*50*30*30 = 270 000 бит=
=270 000 :8 байт =33750 байт =33 750 :1024 Кбайт≈ 33 Кбайта
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(7, 10, 15);
a.Println;
var i := a.IndexMin;
Writeln('min a[', i + 1, '] = ', a[i])
end.
<h2>Пример</h2><h3>15 12 10 13 12 13 10</h3><h3>min a[3] = 10</h3>
Тебе две программы или одну?
// Язык Pascal
Var i : integer;
Begin
for i:= 5 to 20 writeln(i);
for i:=45 to 60 writeln(i);
end.
Да, я серьезно, это будет работать. Это две задачи в одной. Поползут цифры в столбик, с 5 до 20, потом резко с 45 до 60, а потом программа закроется