Задание:
Заполнить одномерный массив состоящий из 10-ти элементов числами на промежутке от [-115,115]. Вывести полученный массив в строчку через три пробелами междуэлементами и найти сумму элементов полученного массива.
Решение:
Program Pr1; uses crt; var mas: array[1… 10] of integer; i,a: integer; Beginclrscr; 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.
Знаете другой ответ?