Помогите решить задачу: Даны числа n1, n2, n3, n4. Те числа которые являются...

Question

Помогите решить задачу:
Даны числа n1, n2, n3, n4. Те числа которые являются положительными, заменить нулями. (Язык программирования Pascal).

Answer 1

Var  n1,n2,n3,n4:real; 

begin 
  writeln('Введите n1, n2, n3, n4'); 
  readln(n1,n2,n3,n4); 
  if n1>0 then n1:=0; 
  if n2>0 then n2:=0; 
  if n3>0 then n3:=0; 
  if n4>0 then n4:=0; 
  writeln(' n1= ', n1, ' n2= ', n2, ' n3= ', n3, ' n4= ', n4);
end.

Comments

Большое спасибо, выручила ^^