1.найти в массиве те элементы, значение которых меньше среднего арифметического, взятого от всех элементов массива. 2.массив а вводится с клавиатуры. найти среднее арифметическое его элементов с нечетными номерами. размер произвольный. заранее

286

443

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

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

gesse99

Информатика

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

1) program ok; const n = 10; var a: array[1..n] of real; sum: real; i: integer; begin sum: =0; for i: =1 to n do begin read(a[i]); sum: =sum+a[i]; end; sum: =sum/n; for i: =1 to n do begin if(a[i]< sum) then writeln(a[i]); end; end. 2) program ok; const n = 10; vara: array[1..n] of real; sum: real; i,k: integer; begin sum: =0; for i: =1 to n do begin read(a[i]); if (i mod 2 = 1) then sum: =sum+a[i]; if (i mod 2 = 1) then k: =k+1; end; sum: =sum/k; write(sum); end.