вторник, 9 июня 2009 г.

каких элементов больше:отрицательных или положительных?

Помогите с задачей по паскалю. Дан целочисленный массив размера х, посчитать каких элементов положительных или отриц.

const
X = 50;

var
a: array [0..X-1] of integer;
i: integer;
plus: integer;
minus: integer;

begin
{инициализируем массив случайными числами от -50 до 49}
for i:=0 to X-1 do a[i]:=random(100)-50;

{инициализируем начальное число счётчиков}
plus:=0;
minus:=0;

for i:=0 to X-1 do
if a[i] < 0
then
minus:=minus+1
else
plus:=plus+1;

if minus > plus then
writeln('отрицательных (', minus, ') больше чем положительных (', plus, ')')
else
writeln('положительных (', plus, ') больше чем отрицательных (', minus, ')');

end.


отформатированный файл + с учётом когда колво положительных и отрицательных равно можно скачать здесь

Комментариев нет:

Отправить комментарий