<h2><u>7. </u></h2>
program raf105;
var
num,max: integer;
begin
writeln('Вводите числа по очереди. Что бы закончить введите 0');
max:= -99999;
repeat
readln(num);
if num > max then max:= num;
until num = 0;
writeln('Вывод: ',max);
end.
<h2><u>8. </u></h2>
program raf105;
var
num,min: integer;
begin
writeln('Вводите числа по очереди. Что бы закончить введите 0');
min:= 99999;
repeat
readln(num);
if (num < min) and (num <> 0) then min:= num;
until num = 0;
writeln('Вывод: ',min);
end.
<h2><u>9. </u></h2>
program raf105;
var
num,count,max: integer;
begin
write('Введите количество чисел: ');
readln(count);
writeln('Вводите числа по очереди');
max:= -99999;
for var i:=1 to count do
begin
readln(num);
if (num > max) and (num mod 5 = 0) and (num <> 0) then max:= num;
end;
if max <> -99999 then writeln('Вывод: ',max)
else writeln('Таких чисел нет.');
end.
<h2><u> </u></h2><h3>PascalABC</h3>
Ответ:
4) 25 кБ
Объяснение:
Общее число символов на странице - 32 * 25 = 800;
Общее число символов в статье - 800 * 32 = 25600;
Информационный объем статьи - 25600 * 8 = 204800 бит,
204800 / (8 * 1024) = 25 кБ
<u><em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em></u>
<u><em>// Внимание! Если программа не работает, обновите версию!</em></u>
begin
var a:=ArrRandom(12,-12,12); a.Println;
a:=a[1:6]+a[:1]+a[7:]+a[6:7]; a.Println
end.
<u>Пример</u>
3 12 5 -2 -5 4 0 1 -8 -3 -4 -12
12 5 -2 -5 4 3 1 -8 -3 -4 -12 0