Домашняя работа на 30 сентября

 Пункт 4.1 прочитать. Выполнение арифметических действий  над элементами массива. Примеры 4.1 и 4.2 переписать в тетрадь и почти выучить.

 Напоминаю, что в Pascal var пишется не в цикле. Например:

var a: array[1..10] of integer;

  i ,  n, S, P: integer;

begin

  write(ꞌВведите n =ꞌ);  readln(n);

  writeln(ꞌВводите элементыꞌ);

  for  i := 1 to n do    read(a[i]);

  S := 0;

  P := 1;

  for  i := 1 to n do

  begin

    S := S + a[i];

    P := P * a[i];

  end;

  writeln(ꞌСумма = ꞌ, S);

  writeln(ꞌПроизведение = ꞌ, P) ; end.