Sashkoo2003

24.01.2023 11:40

Информатика

Есть ответ 👍

Дан массив из 25 чисел, найти среднее арифметическое элементов массива, сумму массива и кол-во чётных и не чётных элементов массива. элементы вводятся с гсч.

165

419

Посмотреть ответы 3

Ответы на вопрос:

LeenBoom69

Информатика

4,4(100 оценок)

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;

sa: =sum/25;

writeln('среднее арихметическое - ',sa);

writeln('сумма чисел - ', sum);

writeln('количество чётных - ', ch);

writeln('количество не чётных - ', nch);

writeln('--числа--');

for k: =1 to 25 do

begin

write(m[k],', ');

end

end.

daniltyrov719

Информатика

4,5(53 оценок)

Var 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.

айскримву

Информатика

4,6(9 оценок)

var

p: integer;

begin

readln(p);

if p=5 then print('Молодец!')

else if p = 4 then print('Хорошо!')

else if p<=3 then print('Лентяй!')

end.

Объяснение:

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.