Задача 8.1

Задать одномерный числовой массив А [10] из целых чисел. Определить сумму и количество отрицательных элементов массива.

Математическая формулировка задачи:

Чтобы определить сумму и количество отрицательных элементов массива, нужно сначала заполнить массив некоторыми числами, а затем просмотреть массив сначала, от первого элемента до последнего (в цикле). Каждый элемент нужно проверить – если он окажется отрицательным (соответствующим нашему критерию), то его нужно добавлять в сумму, а если не отрицательным – то не нужно добавлять в сумму.

Количество элементов, соответствующих какому-либо критерию, в данном случае отрицательных по значению, подсчитывается при помощи специальной переменной. До подсчета она равна нулю, и увеличивается на 1 каждый раз, когда найден нужный (отрицательный) элемент.

Текст программы к задаче 8.1:

Program Ex_8_1;

Uses Crt;

Type Mas = array [1..10] of integer;

{ объявляем тип массив из 10 целых чисел }

Var A: Mas;

{ переменная A типа массив }

S: real;

{ сумма отрицательных элементов массива }

i: integer; { индексы массива }

k: integer;{ количество отрицательных эл-ов массива }

Begin

ClrScr; { очищение экрана }

Textcolor(1); { установим цвет текста синий }

Randomize;

For i:=1 to 10 do begin

A[i]:=random(200)-100;

Writeln(A[i]);

{ вывод элементов массива в столбик }

End;

S:=0; k:=0;

For i:=1 to 10 do begin

If A[i]<0 then begin

S:=S+A[i];

k:=k+1;

End;

End;

Writeln; { перевод строки }

Textcolor(2); { установим цвет текста зеленый }

Writeln(‘Сумма отрицательных элементов массива ’, S);

Writeln(‘Количество отрицательных элементов ’, k);

Readln;

End.