Что делает программа? Program pr; Var х: array [1..100] of integer; i, s: integer; begin s: =0; for i:=l to 100 do begin readln (x [i]) ; if i >0 then s:=s+x[i] ; end; s:=s/100 writeln (s) ; end.
Объяснение:
Данная программа определяет сумму значений элементов массива
a) сумму значений элементов массива с четными индексами; b) сумму значений положительных элементов; c) количество элементов, значение которых четное число; d) среднее арифметическое значение положительных элементов массива
a)