В массиве из 15 элементов (от 20 до 30) найти среднее арифметическое чётных элементов массива.

В массиве из 15 элементов (от 20 до 30) найти среднее арифметическое чётных элементов массива. Составить на языке Pascal ABC.
Категория: Информатика 3 года назад
На вопрос 3 года назад
Tobol
Var
  x: Array[1..10] of Integer;
 
i,k: Integer;
 
s: Longint;
BEGIN
Writeln('Введите массив:');
For i:=1 to 10 do
begin
  Readln(x[i]);
 
If x[i] mod 2=0 Then
  begin
    s:=s+x[i];
   
k:=k+1;
 
end;
end;
Writeln('Среднее арифметическое четных = ',s/k:5:2);
Readln
END.
Ответ получен 3 года назад
Tobol

Пожалуйста зарегистрируйтесь/войдите для ответа на вопрос.  Нажмите для входа

Войти на сайт