?>
Люди, , сформировать одномерный массив из 20 элементов (значения элементов случайным образом вывести массива на экран. найти среднее арифметическое элементов первой половины массива и сумму элементов второй половины массива. паскаль массивы
Ответы
program pr; var a: array[1..20] of integer; i,sum: integer; sr: real; beginfor i: =1 to 20 do a[i]: =random(100); for i: =1 to 20 do write(a[i],'; '); sr: =0; for i: =1 to 10 do sr: =sr+a[i]; sr: =sr/10; sum: =0; for i: =11 to 20 do sum: =sum+a[i]; writeln; writeln('srednee=',sr); writeln('summa=',sum); end.