Дан массив M={-8; 0; -4; -0.1; 0; 2; 3; -8; 4}. Подсчитать количество отрицательных элементов. Оставшиеся числа вывести в виде списка.

Question

Кристина Зайцева

Информатика

5 июля, 15:01

Дан массив M={-8; 0; -4; -0.1; 0; 2; 3; -8; 4}. Подсчитать количество отрицательных элементов. Оставшиеся числа вывести в виде списка.

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Роберт Майоров · Answer 1

Pascal: uses crt; var a:array [1 ... 100] of integer; i, n, s:integer; begin clrscr; write ('Введите количество элементов массива:'); readln (n); for i:=1 to n do a[i]:=random (15) - 10; write (a[i],' '); writeln; for i:=1 to n do if a[i]<0 then s:=s+a[i]; writeln ('s=', s); readln end.