На паскале написать программу, заполняющую массив случайными числами и находящими их сумму. длина массива 10

153

455

Посмотреть ответы 2

Ответы на вопрос:

pomorcevakata98

Информатика

4,4(84 оценок)

Var s,i: integer; mas: array[1..10] of integer; begin //заполняем массив рандомными числами до 10 for i : = 1 to 10 do mas[i] : = random(10); for i : = 1 to 10 do //выводим массив write(mas[i], ' '); writeln; //считаем сумму массива for i : =1 to 10 do s: =mas[i]+s; //выводим сумму write(s); end.