Простая задача еще

[utyyf]

Надо на Паскале (через неделю контрольная - таких задач много - дадут что-то из них наугад). Главное - безо всяких "если" - линейный алгоритм проходим. Помогите!


Даны числа A, B, C, D. Найти количество положительных.

[kommunist]

эти числа должны случайно вводится?

[kommunist]

program chisla;
uses crt;
label 1;
var a,b,c,d:integer;
z:integer;
begin
randomize;
a:=random(100); b:=random(100); c:=random(100); d:=random(100);
writeln(a); writeln(b);writeln(c); writeln(d) ;
if (a<0) then 1: z:=z+1;
if (b<0) then goto 1;
if (c<0) then goto 1;
if (d<0) then goto 1;
writeln('z=',z);


readln;
end.

[kommunist]

если самому надо ввести тогда другой код
program chisla;
uses crt;
label 1;
var a,b,c,d:integer;
z:integer;
begin

writeln('a=','b=','c=','d=');
readln(a,b,c,d);
if (a<0) then 1: z:=z+1;
if (b<0) then goto 1;
if (c<0) then goto 1;
if (d<0) then goto 1;
writeln('z=',z);


readln;
end.

[utyyf]

Числа вводят с клавы. Но нельзя этими "if" пользоваться. Еще не проходили. Он сразу сказал - у кого if - это значит вам кто-то решал.

[kommunist]

напиши чем можно

[utyyf]

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

a:=random(100); b:=random(100); c:=random(100); d:=random(100);

А на "random" нас целый урок гоняли.
эти a, b, c, d - будут получаться всегда положительные от 0 до 99.

там тогда надо

random(100)-50

тогда будут и с плюсом и с минусом

[kommunist]

напиши кроме if еще чем нельзя пользоваться?

[utyyf]

Мы проходили изменение значений переменных, и функции корня, деления нацело и состатком, модуля . 1 месяц только занимались

[Alex21]

Можно все числа прогнать через try. Т.е. корень из отрицательного числа взять не получится, а если число >=0, то считаем.

try
  a:=sqr(sqrt(a));
  inc(kolvo);
except
end;