HELPP!!
nопределите среднее арифметическое чётных элементов массива A[1..10]
nНаписать программу в Паскаль
triolana 2 года назад

Четных по значению или с четными по порядку номерами?

Ответ
5/5 (1 оценка)
1
iolandavalerypad353 2 года назад
Светило науки - 22 ответа - 610 раз оказано помощи

//Будем считать, что четные по значению

const

 n = 10;

var

 a: array[1..n] of integer;

 i, Sum, Count: integer;

begin

 Sum := 0;

 Count := 0;

 Randomize;

 for i := 1 to n do

 begin

   a[i] := Random(10);

   Write(a[i], ' ');

   if a[i] mod 2 = 0 then

   begin

     Sum := Sum + a[i];

     Count := Count + 1

   end

 end;

 

 Writeln;

 Write('Среднее арифметическое ' +  

       'четных чисел: ', Sum / Count)

end.

fedorova111214 2 года назад

Вы мой спаситель :D Спасибо!

fedorova111214 2 года назад

У меня чёт неправильно считывает среднее арифметическое, не подскажите в чем проблема?

Ответ
5/5 (2 оценки)
0
risaclar123 2 года назад
Светило науки - 6 ответов - 15 раз оказано помощи

Здесь с четными, а там просто арефмитическое...


Var

m:array [1..100000] of integer;

k,i:integer;

Begin

k:=0;

randomize;

For i:=1 to 10 do

read(m[i]);

For i:=1 to 10 do begin

If m[i] mod 2=0 then

k:=k+m[i] else k:=k+0;end;

k:=k div 10;

writeln(k);

end.