ПОМОГИТЕ С ПАСКАЛЕМ: СОЗДАТЬ ПРОГРАММУ, КОТОРАЯ СЧИТАЕТ СУММУ И ПРОИЗВЕДЕНИЕ ЭЛЕМЕНТОВ МАССИВА СЛУЧАЙНЫМ ОБРАЗОМ И С КЛАВИАТУРЫ.

а что такое Randomize; и writeln('-------'); ??

Randomize включает перерегенерацию случайных чисел, чтобы при каждом запуске программы последовательность была неоднородной. А второе - это просто добавит строчку с тирешками, я это использовала для визуального разделения выводимых результатов, чтобы не путаться.

спасибо большое вам)

var  a: array[1..100] of integer;  n, i: byte;  sum, p: integer;begin  writeln('1. Случайным образом');  Randomize;  write('Введите размер массива: ');  readln(n);  sum:=0; p:=1;  for i:=1 to n do    begin      a[i]:=Random(101)-50;      write(a[i]:4);      sum:=sum+a[i];      p:=p*a[i];    end;  writeln;  writeln('Сумма = ', sum:5);  writeln('Произведение = ', p:5);  sum:=0; p:=1;  writeln('-------');  writeln('2. С клавиатуры');  for i:=1 to n do    begin    write('Элемент ', i, ' = ');    readln(a[i]);    sum:=sum+a[i];    p:=p*a[i];    end;  writeln('Сумма = ', sum:5);  writeln('Произведение = ', p:5);end.