Возможно я не так понял, конечно, но эта блок-схема -- бред.
Во первых, i -- целое число, так-что никаких 1.56 мы ей пресвоить не можем.
Во вторых, это просто бесконечное умножение, условия выхода из цикла -- нет.
Объяснение:
Скорость равна 8 бит/с = 1 байт/с, время передачи 2 минуты = 120 секунд.
Объем данных равен 1 байт/с * 120 с = 120 байт = 0.1171875 КБ
Program qq;
uses crt;
var A:array [1..20] of integer; i: integer;
begin
for i:=1 to 20 do
readln (a[i]); //ввод массива. Не указали откуда дан массив, так что введем его через enter
for i:=1 to 20 do
if a[i]<10 then
a[i]:=0; //сравним каждый элемент массива с 10. если меньше 10, то заменим на ноль
for i:=1 to 20 do
write (a[i], ' '); //Вывод массива на экран
<span>end.</span>
# Код на ruby 2.2.3p173
a = []
a << [1]
for i in 2..10001
f = 0
a.each{ |group|
m = 1
group.each { |c|
m *= i % c
}
f += m
if m > 0
group << i
break
end
}
a << [i] if f == 0
end
p a
p a.size