Регистрация
607156
18.11.2021 12:26
Математика
Есть ответ 👍

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

225
332
Посмотреть ответы 2

Ответы на вопрос:

yaroslavpilip
yaroslavpilip
4,8(71 оценок)
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.
Suslik1111
Suslik1111
4,5(69 оценок)
А) 6   6,5   0,5 б) 5     0,5   0,05 в)8     0,8     0,08

Популярно: Математика