Вопрос по информатике:
Дан массив из 25 чисел, найти СРЕДНЕЕ АРИФМЕТИЧЕСКОЕ элементов массива, СУММУ массива и КОЛ-ВО ЧЁТНЫХ и НЕ ЧЁТНЫХ элементов массива. Элементы вводятся с помощью ГСЧ.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 21.01.2015 01:47
- Информатика
- remove_red_eye 3897
- thumb_up 9
Ответы и объяснения 2
A: array[1..25] of integer;
mean: real;
qodds, qevens, i: byte;
sum: integer;
begin
sum := 0;
qodds := 0;
qevens := 0;
randomize;
for i := 1 to 25 do
begin
A[i] := random(41)-20;
sum := sum + A[i];
if (A[i] mod 2 = 0) then
qevens := qevens + 1
else
qodds := qodds + 1;
write(A[i], ' ');
end;
writeln(#13 + 'Среднее арифметическое = ', (sum / 25):0:2);
writeln('Сумма = ', sum);
writeln('Четных = ', qevens);
writeln('Нечетных = ', qodds);
end.
- 22.01.2015 20:05
- thumb_up 2
program znanija;
uses CRT;
Var n,k,sum,ch,nch: integer;
sa: real;
M: Array[1..25] of integer;
begin
write('Ведите N: ');readln(n);
for k:=1 to 25 do
begin
M[k]:=random(n);
sum:=sum+M[k];
if (M[k] mod 2 = 0) then
begin
ch:=ch+1;
end else
begin
nch:=nch+1;
end;
end;
sa:=sum/25;
Writeln('Среднее арихметическое - ',sa);
Writeln('Сумма чисел - ', sum);
Writeln('Количество чётных - ', ch);
Writeln('Количество не чётных - ', nch);
writeln('--Числа--');
for k:=1 to 25 do
begin
Write(m[k],', ');
end
end.
- 23.01.2015 16:57
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.