Помогите пожалуйста! Создать массив А из десяти целых чисел, принадлежащих промежутку (0;50) выведите полученный результат на экран. Подсчитать сумму элементов (работа в паскаль). Я просто тему пропустила, а объяснять не хотят :(
Помогите пожалуйста! Создать массив А из десяти целых чисел, принадлежащих промежутку (0;50) выведите полученный результат на экран. Подсчитать сумму элементов (работа в паскаль). Я просто тему пропустила, а объяснять не хотят :(
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы