program p1;
uses Crt;
var
i, n, m, min: integer;
begin
ClrScr;
Write('Длина последовательности: ');
Readln(n);
Read(min);
for i := 2 to n do
begin
Read(m);
if m < min then
min := m;
end;
Writeln(min);
ReadKey;
end.
program p2;
uses Crt;
var
i, n, m, max, k: integer;
begin
ClrScr;
Write('Длина последовательности: ');
Readln(n);
Read(max);
k := 1;
for i := 2 to n do
begin
Read(m);
if m > max then
begin
max := m;
k := 1;
end
else if m = max then
k := k + 1;
end;
Writeln(k);
ReadKey;
end.
Если это программа в Кумире, то в таком виде она не заработает.
Нужно исправить ошибки- вместо "куда" должно стоять "кц" (конец цикла), а первые три строчки должны начинаться с малых букв (иначе система не воспримет их как ключевые слова).
А вообще, здесь задан один цикл для переменной k (от трёх до пятнадцати, то есть 13 разных значений).
Значит, этот цикл будет выполнен 13 раз.
И каждый раз к начальному значению s (ноль), будет прибавляться десять.
В итоге получим 0 + 13 * 10 = 0 + 130 = 130
Более никакие действия с переменными не делаются, сразу печатается на экран значение s, то есть 130
128:8=16
ответ: этот объём равен 16 байтам.