Одномерные массивы

[bublik3]

Парни кто шарит по паскалю мне нужно сделать эт задание:
12. Составить схему алгоритма и программу определения количества положительных и отрицательных элементов массива вещественных чисел К={кi}, i=1,t, t- число элементов массива (t⩽120). Вывести на экран найденные значения.

[kilogram4ik]

Если я правильно понял задание , то выглядеть будет так (надеюсь поможет)

var SA:array [1..120] of integer;
k,k1,k2:integer;
begin
write('количество элементов в массиве k=');
readln(k);
writeln('массив');
for var i:=1 to k do
  begin
  SA[i]:=random(20)-10;
  write(SA[i]:4);
  end;
writeln;

for var i:=1 to k do
  if SA[i]>0 then
    inc(k1)
  else
    inc(k2);
 writeln('положительных чисел в массиве: ',k1);  
 write('отрицательных чисел в массиве: ',k2);
end.

[ViktorR]

kilogram4ik

Если я правильно понял задание , то выглядеть будет так (надеюсь поможет)

Задание поняли, но неправильно.

Сомневаюсь, что поможет ТС, т.к. он не желает включать собственный мозг.
Ему подавай всё готовенькое и даже разжёванное.
Вспоминаю мультик про Вовку в тридевятом царстве.

[digitalis]

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

  if SA[i]>0 then

В таком варианте 0 будет признан отрицательным.

[ViktorR]

digitalis

В таком варианте 0 будет признан отрицательным.

В том числе надо учесть, что в задании говорится о вещественных, а не целых числах.

[digitalis]

На if-ах это не отразится - распознают и отрицательное, и неотрицательное без проблем.

[ViktorR]

Это вот сюда:

var SA:array [1..120] of integer;

Размер хранимых данных в два раза меньше, если real 32-x битовые.
Да. На работе программы это не отразится, только условию задания программа не удовлетворяет.