Суммирование и нахождение количества элементов в массиве 1) Создать случайный массив M из 20 чисел промежутка [-11; 15].

Найти в нём сумму положительных элементов и заменить первый и

последний элементы массива на найденную сумму. Вывести на экран

исходный и изменённый массивы.

2) Создать случайный массив Z из 10 чисел промежутка [-20; 25].

Найти в нём количество элементов, кратных 5 и заменить им пятый

по счёту элемент массива.

программа на языке pascal, успехов в учебе.

program pr;

var n,m,z,k,i,vm: integer;

begin

readln (n,m,z);

vm: =n*60+m;

i: =1;

while i< =vm do

begin

k: =k+1;

i: =i+z;

end;

writeln (k);

readln;

end.

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.

f8 формула: =b12*5. b5 формула: =а4+d6. c7 формула: =d6/$a$2. f9 формула: =$c$5-g1. e5 формула: =c$5-$e9.

var

i,n: integer;

begin

read(n);

for i: =0 to 3 do

writeln (4*n-i);

end.