Чи може виконання циклу з передумовою ніколи не закінчитися? ​

рождения 30.05.95

300

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

а где сама таблица? все равно она везде одинаковая, так что держите фрагмент ваш:

byck is my dog.

15 гб = 15360 мбайт = 122880 мбит

32 мин = 1920 с.

скорость = 122880/1920 = 64 мбит/с