Заполнить одномерный массив состоящий из 10-ти элементов числами на промежутке от [-115,115]. Вывести полученный массив в строчку через три пробелами между элементами и найти сумму элементов полученного массива.

Question

Информатика

Михася

4 ноября, 15:55

Заполнить одномерный массив состоящий из 10-ти элементов числами на промежутке от [-115,115]. Вывести полученный массив в строчку через три пробелами между элементами и найти сумму элементов полученного массива.

+2

Ответы (1)

Знаете ответ?

Абакум · Answer 1

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.