Напишите программу нахождения суммы и произведения 10 случайных чисел. pascal.​

ответ: const

n=10;

var

a: array[1..n]of integer;

i: integer;

s,p: real;

  begin

randomize;

p: =1;

        for i: =1 to n do

              begin

                  a[i]: =random(100)-50;

                  write(a[i]: 4);

                  p: =p*a[i]   ;

                  s: =s+a[i];

              end;

writeln;

writeln(p = ,p,   s= ,s);

end.

объяснение:

Количество слов будет на единицу больше количества пробелов, если пользоваться традиционным алгоритмом. 1. традиционное решение. // pascalabc.net 3.1, сборка 1192 от 07.03.2016 var   s: string;   i,k: integer; begin   write('введите строку: '); readln(s);   k: =0;   for i: =1 to length(s) do       if s[i]=' ' then inc(k);   writeln('количество слов равно ',k+1) end. результат выполнения программы: введите строку: а роза упала на лапу азора количество слов равно 6 2. решение срeдствами pascalabc.net 3.1 // pascalabc.net 3.1, сборка 1192 от 07.03.2016 begin   var s: =readlnstring('введите строку: ');   writeln('количество слов равно ',s.towords.count) end. результат выполнения программы: введите строку: а роза упала на лапу азора количество слов равно 6

Классическая на динамическое программирование. применим этот принцип: количество вариантов как попасть в какое-то состояние равно сумме количеств вариантов как попасть в предыдущие состояния. например вариантов попасть на первую ступеньку  -1, на вторую - 2 и т.д. var i,n : integer;       a : array [1..20] of integer; begin   n: =20;   a[1]: =1; a[2]: =2;   for i: =3 to n do       a[i] : = a[i-1] + a[i-2];   writeln(a[n]); end. ответ: 10946 способов.