Создать процедуру, которая находит сумму 3 переменных. Переменные вводятся с клавиатуры в основной программе, вывод также осуществляется в основной программе. На паскале

279

389

Посмотреть ответы 1

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

alexeygutorov

Информатика

4,7(79 оценок)

program z8; uses crt; var a: array[1..259] of shortint; i,k,n: byte; s: integer; beginclrscr; randomize; write('vvedi razmernost massiva='); readln(n); for i: =1 to n do begina[i]: =random(100--100+1)+-100; write(a[i]: 4); if a[i]< 0 thens: =s+a[i]; if odd(a[i]) thenk: =k+1; end; writeln; writeln('сумма отрицательных элементов равна ',s); writeln('кол-во нечётных элементов равно ',k); readkeyend.