Информатика. pascal abc 1) через оператор for надо решить. дан ряд чисел от 20 до -10. найти модуль произведения этих чисел 2) дан массив. заменить все положительные элементы нулями и подсчитать их количество

Program  ranea15ranea_1; uses crt; var i,p: integer; begin   writeln('***    alphaues is     ***');   p: =1;   for i: =-10 to 20 do       p: =p*i;   writeln('модуль произведения чисел от -10 до 20 равен ',abs(p)); end. program ranea15ranea_2; uses crt; const   n=20; var   a: array [1..n] of integer;   i,pos: integer; begin   writeln('*** alphaeus is ***');   writeln('***                  ok                        ***');   writeln();   randomize;   {заполняем массив}   for i: =1 to n do       begin           a[i]: =random(101)-50;           write (a[i]: 4);       end;   writeln();   {ищем положиетельные элементы, заменяем их нулями, и считаем их количество}   pos: =0;   for i: =1 to n do       begin           if a[i]> 0 then               begin                   a[i]: =0;                   pos: =pos+1;               end;       end; {выводим результат}   writeln();   writeln(' заменено ',pos,' положительных элементов'); end.

можно проехать туда и назад в Косшы.Можно проехать 550км

Пошаговое объяснение: