Задача 8.1.

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

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

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

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

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

ProgramEx_8_1;

Uses Crt;

TypeMas = array [1..10] of integer; { объявляем тип массив из 10 целых чисел }

VarA : 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

IfA[i]<0 then begin

S:=S+A[i];

k:=k+1;

End;

End;

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

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

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

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

Readln;

End.