Помогите пожалуйста! Создать массив А из десяти целых чисел, принадлежащих промежутку...

Question

Помогите пожалуйста! Создать массив А из десяти целых чисел, принадлежащих промежутку (0;50) выведите полученный результат на экран. Подсчитать сумму элементов (работа в паскаль). Я просто тему пропустила, а объяснять не хотят :(

Answer 1

Var  a :array [1..10] of integer;  i, sum :integer;
begin
  randomize;  for i:= 1 to 10 do    a[i]:= random(50);  sum:= 0;  for i:= 1 to 10 do    sum:= sum + a[i];  writeln(sum);
end.

Comments

спасибо