Вводится число n, а затем n чисел. выведите среди n чисел только положительные

Program prog; uses crt;   var a: array [1..100] of real;         i, n: integer;     begin   clrscr;     write('n = ');   readln(n);     for i: =1 to n do   begin         write('a[',i,'] = ');         readln(a[i]);   end;     writeln;   writeln('положительные числа: ');   for i: =1 to n do   if (a[i]> 0) then         writeln('a[',i,'] = ', a[i]);   end.

нет,оно вряд ли.ведь что такое компьютер? это арифрометр.не видили никогда такую машинку? компьютер работает тупо.а про разборки (искусственого интелекта) я могу много баек рассказать могу это дело.и в ученые доили.государство,и в сша.

 

 

program p;

vara,b,c,i,j,n : integer;

beginwriteln('введите три числа'); readln(a,b,c);

if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);  

readln; end.