Заполнить одномерный массив состоящий из 10-ти элементов числами на промежутке от [-115,115]. Вывести полученный массив в строчку через три пробелами между элементами и найти сумму элементов полученного массива.
Заполнить одномерный массив состоящий из 10-ти элементов числами на промежутке от [-115,115]. Вывести полученный массив в строчку через три пробелами между элементами и найти сумму элементов полученного массива.
Гость
Ответ(ы) на вопрос:
ГостьProgram Pr1;
uses crt;
var mas:array[1..10] of integer;
i,a:integer;
Begin
clrscr;
a:=0;
randomize;
for i:=1 to 10 do mas[i]:=-115+random(231);
for i:=1 to 10 do begin
write(mas[i],' ');
a:=a+mas[i];
end;
writeln('Summa=',a);
end.
Не нашли ответ?
Похожие вопросы