Задание:
Из 6 введенных на клавиатуре чисел найти сумму и количество отрицательных.
Решение:
Program z1; vari,s,r: integer; a: array[1… 6] of integer; beginwriteln ('Введите числа'); for i: =1 to 6 dobeginreadln (a[i]); If a[i]<0 thenr: =r+1; s: =s+a[i]; end; writeln ('Сумма: ',s); writeln ('Кол-во отрицательных чисел: ',r); end.
Знаете другой ответ?