Паскаль!!! Дан массив из 20 действительных чисел, определить ...
Паскаль!!! Дан массив из 20 действительных чисел, определить среднее арифметическое элементов с четными индаксами и среднее арифметическое с нечетными индаксами
Есть ответ
18.12.2022
75
Ответ
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.
Ну как всегда: вопросы - в личку)
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022