1. сформировать массив, состоящий из n вещественных элементов, лежащих в промежутке [-20,20] ; вычислить 2. сумму отрицательных элементов массива 3. количество элементов кратных 7 4. произведение элементов массива, расположенных после максимального элемента. сделать блок схему и написать программу

uses crt; var  i,s: integer; begin  i: =2; s: =1;   while i< =10 do  begin    s: =s*i;     i: =i+2;   end;   write(s); end.

вот так понятней буде)) ну и более правильно, для

var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); end.