Написать программу, в которой массив из 20 элементов заполняется случайными числами и вычисляется произведение всех элементов массива.

// pascalabc.net 3.0, сборка 1144 от 16.01.2016 begin   var a: =arrrandom(20,-15,25); a.println;   var p: biginteger: =1;   foreach var x in a do p*=x;   writeln('произведение элементов равно ',p) end. тестовое решение: -3 5 8 -14 10 19 18 -15 15 -13 22 9 7 20 -12 6 6 -8 -3 -8 произведение элементов равно 38640208365158400000

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.

 

пример программы для паскаль

program a;

const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or        ((161 < = a[i]) and (a[i] < =175)) or          ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index =  ',i+1,'; bukva -  ''',char(a[i]),'''','    a[i] =  ',a[i]); end;

beginwriteln; for i: =1 to n do              b[i] : = random(300); for i: =1 to n do begin                  write(' ',i,'  =  ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b);           readln;

end.