Question

Массив А[1 12] заполните случайными числами в диапазоне от одного до 20 определить сумму шести первых элементов массива

Answer 1

var

i: integer;

mas: array[1..12] of byte;

begin

randomize;

for i:=1 to 12 do

mas[i]:= random(20) + 1;

writeln('Сумма = ', mas[1]+mas[2]+mas[3]+mas[4]+mas[5]+mas[6]);

end.