Program ggl; var n, i, sum : integer; a : array [1..1000] of integer; begin readln (n); sum : = 0; for i : = 1 to n do begin a[i] : = random (100); write (a[i], ' '); sum : = sum + a[i]; end; writeln; write (sum / n); end. объяснить что выполняет каждая !

214

292

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

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

maschkuznetsov

Информатика

4,6(71 оценок)

Program ggl; это название программы var n, i, sum : integer; описание переменных a : array [1..1000] of integer; описание массива а (он целочиленный, в интервале от 1 до 1000) begin readln (n); начало программы, запрос значение переменной n sum : = 0; присвоение переменной sum значение 0 begin readln (n); sum : = 0; for i : = 1 to n do begin a[i] : = random (100); write (a[i], ' '); sum : = sum + a[i]; end; begin характеризует начало новой подпрограммы. она - цикл, в котором идет перебор чисел от 1 до значения n, элементам массива a присваиваются рандомные числа от 1 до 100, элементы массива выводятся на экран. после идет подсчет значения переменной sum (причем сначала находится, например, первый элемент массива, а уже после значение переменной sum, после второй элемент массива и он прибавляется к прежнему значению переменной sum). подпрограмма кончается. writeln; write (sum / n); end.вывод значения деления переменной sum на переменную n. конец всей программы.