1) решить в паскале: дан массив количества продаж телевизоров,получить количество телевизоров проданных за неделю (количество телевизоров в день взять любое число) 2)записать массив с случайными числами var a : array [1; 10] of integer

Program task2;
var  a :array [1..10] of integer;  i :integer;
begin
  randomize;  for i:= 1 to 10 do  begin    a[i]:= random(100);    write(a[i],' ');  end;
end.