Паскаль, 9 класс
Дан массив целых чисел, состоящий из 10 элементов. Массив ввести с клавиатуры. Найти сумму отрицательных элементов. Найти количество тех элементов, значения которых положительны.
Дан массив целых чисел, состоящий из 10 элементов. Массив ввести с клавиатуры. Найти сумму отрицательных элементов. Найти количество тех элементов, значения которых положительны.
More Questions From This User See All
Answers & Comments
Программа:
Pascal:
var
arr: array[1..10] of integer;
i, summ, n: integer;
begin
writeln('Введите массив: ');
for i := 1 to 10 do begin
readln(arr[i]);
if arr[i] > 0 then inc(n);
if arr[i] < 0 then summ := summ + arr[i];
end;
writeln('Массив: ', arr);
writeln('Сумма отрицательных элементов: ', summ);
writeln('Количество положительных элементов: ', n);
end.