Домашняя работа на 4 октября - 8 октября

 Выписать в тетрадь и набрать на компьютере

1///Подсчитать сумму и произведение элементов массива

var a:array [1..5] of integer;
 i,S , pr:integer;
begin
S:=0 ;
pr :=1 ;
 for  i := 1 to 5 do  read(a[i]);
for  i := 1 to 5 do S:=S+ a[i];
f or  i := 1 to 5 do pr:=pr+ a[i];
  write(' S=',  S  ,' pr=',  pr    );
 end.

2///Подсчитать сумму и произведение элементов массива, больших 7
var a:array [1..5] of integer;
 i,S , pr:integer;
begin
S:=0 ;
pr :=1 ;
 for  i := 1 to 5 do  read(a[i]);
for  i := 1 to 5 do if a[i] >7 then S:=S+ a[i];
f or  i := 1 to 5 do if a[i] >7 pr:=pr+ a[i];
  write(' S=',  S  ,' pr=',  pr    );
 end.
3 Вспомнить MOD. Когда используется.