Массивы.Паскаль.

[vatakat]

В заданном датчиком случайных чисел одномерном массиве, посчитать кол-во положительных,отрицательных и нулевых элементов.

p.s. Буду ОЧЕНЬ благодарен если поможете решить до пятницы и опишите вкратце как это решается.

[Alex11223]

Проблема-то в чем? Попробуйте сделать что-то сами, покажите код, расскажите что не получается.

[vatakat]

Проблема в том, что я полный 0 в программирование! :-(
поэтому и прошу написать и чуть чуть объяснить как решалось...

[Alex11223]

Ну в гугле хоть умеете искать?) Ключевые слова: заполнение массива случайными числами pascal,
посчитать кол-во положительных элементов pascal

[Zer0]

var a[50]:real; i,sP,sO,sN:integer;
begin
randomize;
sP:=0; sO:=0; sN:=0;
for i:=1 to 50 do begin
a[i]:=random(51)-100;
if a[i]>0 then inc(sp) else
if a[i]<0 then inc(so) else
inc(sN);
write (a[i]:0:2,' ');
end;
writeln;
writeln ('Otric = ',sO,', Poloj = ',sP,', Nul = ',sN);
readln;
end.

[vatakat]

Сообщение от Zer0

var a[50]:real; i,sP,sO,sN:integer;
begin
randomize;
sP:=0; sO:=0; sN:=0;
for i:=1 to 50 do begin
a[i]:=random(51)-100;
if a[i]>0 then inc(sp) else
if a[i]<0 then inc(so) else
inc(sN);
write (a[i]:0:2,' ');
end;
writeln;
writeln ('Otric = ',sO,', Poloj = ',sP,', Nul = ',sN);
readln;
end.

Спасибо большое за решение!

А кто-нибудь сможет объяснить?

[Alex11223]

Что конкретно объяснить?

проходим весь массив циклом

for i:=1 to 50 do begin

Генерируем число от -100 до -50 вроде (обратите внимание, что все элементы всегда будут отрицательными) и записываем его в текущий элемент.

a[i]:=random(51)-100;

если элемент больше 0 тогда +1 в переменную sp, если меньше — so, иначе (если оба условия не выполнились т.е. остается только 0) — sn

if a[i]>0 then inc(sp) else
if a[i]<0 then inc(so) else
inc(sN);

выводим текущий элемент в консоль

write (a[i]:0:2,' ');

конец цикла)

end;

Кстати, там в объявлении массива ошибка.

[Serge_Bliznykov]

Alex11223, молодца! Зачёт!

[vatakat]

Сообщение от Alex11223

Кстати, там в объявлении массива ошибка.

Спасибо за помощь!
Что за ошибка? в самой задаче или в решении?

[Alex11223]

В объявлении массива

var a[50]:real;

У автора кода, видимо, перемещался синтаксис Си подобных языков и Паскаля.
Но я думаю вы без труда найдете гугле как правильно объявить массив в Паскале.