Pascal массивы заполнить массив p[200] случайными целыми числами из интервала (-150; 150). вывести на экран числа кратные 3 и найти сумму положительных чисел.

Const   n = 200; var   a: array[1..n] of integer;   i, s: integer; begin   randomize;   writeln('элементы массива, кратные трем: ');   s : = 0;   for i : = 1 to n do   begin       a[i] : = random(301)-150;       if (a[i] mod 3)=0 then write(a[i],' ');       if a[i]> 0 then s: =s+a[i]   end;   writeln;   writeln('сумма положительных элементов равна ',s) end. тестовое решение: элементы массива, кратные трем: -144 27 -15 135 129 -114 33 66 -15 135 -3 105 -129 -6 -60 21 -108 -78 -123 93 -51 -60 -120 27 129 -33 -30 -66 -39 6 51 141 -75 -30 48 -90 87 -39 18 -45 144 -120 75 -111 6 72 -42 114 -27 120 -144 -120 96 135 -24 -9 141 -93 111 15 сумма положительных элементов равна 7980

Я не знаю ответ
Авария это чрезвычайное происшествие

Ответ: 2 Гбайта заполнят вирусы за 1 месяц.

Вес страницы = 8*128=1024 бита
1024 бита= 1кбит
=> вес 800 страниц = 800*1=800кбит
800/60=13.(3) с
13 целых и одна третья секунды.