Ответ:
а
Объяснение:
Это стандартная запись в любом языке программирования, т.к. например символ '≤' отсутствует в кодировке ansii, тупо написать а непонятно что с чем сравниваем, а вариант в написан на русском, а русский тоже в стандартной ansii отсутствует.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadAllText('input.txt').ToIntegers.Where(t -> t > 0);
if a.Count>0 then WriteAllText('output.txt', $'{a.Min} {a.Max}')
end.
Первое вложение - файл input.txt, второе - output.txt
Если для 1.5л необходимо 30 грамм, значит для 1л. необходимо 20 грамм.
В программе будет умножать на 20.
var v, w: real; //Объявление двух переменных
begin //Начало
write('Литры чая = '); //Вывод сообщения
readln(v); //Ввод количества желаемых литров
w := v * 20; //Расчет количества сухого
writeln('Для ', v, ' л. чая, необходимо ', w, ' г сухого чая'); //Вывод результата
end. //Конец
Программа формирует новый массив со смещением в лево
Program sector;
const
n=10;
var
a,b:array [1..n,1..n] of integer;
z:real;
i,j,k: byte;
begin
randomize;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random (40);
a[i,j]:=a[i,j]-20;
write(a[i,j]:4);
end;
writeln;
end;
z:=0;
for i:=1 to n do
for j:=1 to i do
z:=z+a[i,j];
z:=z/(n*n);
writeln('srednee = ',z);
for i:=1 to n do begin
k:=1;
for j:=1 to n do
if a[i,j] > z then begin
b[i,k]:=a[i,j];
write(b[i,k]:4);
k:=k+1;
end;
writeln;
end;
readln;
end.
151 Кбайт=154624 байт=1236992 бит
368640(???(исходя из логики в бит))=46080 байт=45 кбайт