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

RuStAm09 RuStAm09    1   01.04.2019 17:30    0

Ответы
superinventor62 superinventor62  28.05.2020 06:53

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика