Паскаль! Дан массив из 20 действительных чисел, определить среднее арифметическое элементов с четными индаксами и среднее арифметическое с нечетными индаксами

Question

Информатика

Надюня

10 мая, 02:59

Паскаль! Дан массив из 20 действительных чисел, определить среднее арифметическое элементов с четными индаксами и среднее арифметическое с нечетными индаксами

+2

Ответы (1)

Знаете ответ на вопрос?

Кузяха · Answer 1

Var a: array [1 ... 20] of integer; i, s1, s2:integer;

Begin

For i:=1 to 20 do begin

Writeln ('введите элемент ', i) ; read (a[i]) ;

If i mod 2=0 then s1:=s1+a[i] else

s2:=s2+a[i];

end;

Writeln ('Среднее ариф. четных ', s1/20,'; А нечетных ', s2/20) ;

readln;

end.

Ну как всегда: вопросы - в личку)