Введите с клавиатуры шесь чисел.найдите сумму и произведение тех из них , которые больше 10

сама программа здесь

просто поменяй расширение

 

Var       i, n: integer;       a: array[1..100] of integer; begin       write('n = '); readln(n);             for i : = 1 to n do       begin               a[i] : = random(100) - 50;               write(a[i], ' ');               if (i=1) or (max< a[i]) then               max: =a[i];       end;       writeln();                   writeln('max: ', max); end.

// pascalabc.net 3.1, сборка 1239 от 08.05.2016 begin   var a: =arrrandom(readinteger('n=',99); a.println;   a.select(x-> 2*x).println end. тестовое решение n= 10 -52 -23 48 -54 -72 -36 -87 -46 -21 54 -104 -46 96 -108 -144 -72 -174 -92 -42 108 длинный "школьный" вариант // pascalabc.net 3.1, сборка 1239 от 08.05.2016 const   nn=100; var   i,n: integer;   a: array[1..nn] of integer; begin   write('n='); read(n);   randomize;   for i: =1 to n do begin       a[i]: =random(200)-100;       write(a[i],' ')       end;   writeln;   for i: =1 to n do write(a[i]*2,' ');   writeln end.