15. Ввести 3 числа A, B, C. Определить количество положительных и
отрицательных чисел в этом наборе.
Вообще не шарю.... Проходим разветвляющиеся процессы, как составить код? Получаются блок-схемы просто огромные, по 20 ветвей=)
Подскажите)
тут если чисто через иф, то это куча бесполезного кода.
можно с помощью цикла сделать
код будет примерно такой:
var
a, b, c :real;
i, count1, count2 : byte;
begin
count1 := 0;
count2 := 0;
for i:=1 to 3 do
begin
writeln('vvedite', i, 'chislo');
readln(a);
if a > 0
then inc(count1)
else if a < 0
then inc(count2);
end;
write('kol-vo polozhit. chisel = ', count1, 'kol-vo otritsat. chisel = ', count2)
readrey();
end.
извиняюсь, если есть ошибки. просто писал прямо тут
⇢