Хотя бы одну 1. найти сумму пяти целых чисел массива. program z1; usescrt; var a: array [1..5] of integer; i: integer; begin : =0; writeln ('введитеэлементымассива'); for i: =1 to 5 do readln ; for i: =1 to 5 do : = s+ a[i]; writeln ('….=',….); end. 2. найти среднее арифметическое число в массиве. program z1; usescrt; var a: array [1..5] of integer; i: integer; : real; begin : =0; writeln ('введитеэлементымассива'); for i: =1 to 5 do readln ; for i: =1 to 5 do : = + ; : =; writeln ('sr=',sr); end. 3.вывести на экран элементы массива в обратном порядке. program array1; var a: array[1..8] of integer; i: …….; begin write('введите элементы массива: '); for i : = ….. to …… do read (……); write('элементы в обратном порядке: '); for i : = …………………….do write( …) end.

znaniyasveta    2   16.08.2019 00:50    0