М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
динара1316
динара1316
22.05.2021 01:38 •  Информатика

30 ! , !
заменить элементы, значение которых больше среднего арифметического на это среднее арифметическое.
и чтобы после прогона программы все было в нормальном виде а не огромное кол-во нулей.

👇
Ответ:
125DVV
125DVV
22.05.2021

Объяснение:

a - массив;

sum - сумма элементов массива;

avrg - среднее значение.

Пример алгоритма решения задачи:

Заполняем массив (например, случайными числами).

Переменной sum изначально присваиваем значение 0.

Вычисляем сумму элементов, в цикле перебирая массив и добавляя значение каждого к переменной sum.

Находим среднее арифметическое, путем деления суммы на количество элементов (хранится в константе N).

Выводим на экран весь массив и найденное среднее значение. (Это не обязательно, но необходимо для удобства.)

Снова в цикле перебираем массив. Если очередной элемент больше среднего арифметического, то выводим этот элемент на экран.

const N = 10;

var

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

i: byte;

avrg: real;

sum: integer;

begin

randomize;

for i:=1 to N do a[i]:=random(50)+1;

sum := 0;

for i:=1 to N do sum := sum + a[i];

avrg := sum/N;

// весь массив

for i:=1 to N do write(a[i]:3);

writeln;

writeln('Среднее арифм.: ',avrg:4:2

for i:=1 to N do if a[i]>avrg then write(a[i]:3);

writeln;

end.

Пример выполнения программы:

7 36 21 48 33 46 7 17 19 41

Среднее арифм.: 27.50

36 48 33 46 41

4,5(44 оценок)
Открыть все ответы
Ответ:
7376373
7376373
22.05.2021
Program QuadraticEquation;
  Var a, b, c, d, x1, x2:real;
Begin
      Writeln('vvedite a, b, c');
      Readln(a,b,c);
      If A=0 then
           Writeln('algoritm ne primenim');
      D:=b*b-4*a*c;
      If D<0 then
           Writeln('deystvit resheniy net');
      If D=0 then
           Begin
                  x1:=-b/(2*a);
                  Writeln('x1=',x1);
           End
      Else
           Begin
                  x1:=(-b+sqrt(D))/(2*a);
                  x2:=(-b-sqrt(D))/(2*a);
                  Writeln('x1=',x1, 'x2=', x2);
           End;
end.
               Держи!)
4,5(71 оценок)
Ответ:
egorkorotenko
egorkorotenko
22.05.2021
Т.к. язык программирования не указан, сделаю на свой вкус, т.е. C++. При копировании кода из IDE на сайт автоматически удаляется перенос строки. Будет прикреплен скриншот того, как должен выглядеть код

#include <stdlib.h>#include <stdio.h>#include <locale.h>
void main(){ setlocale(LC_ALL, "RUSSIAN"); int a, b, c; printf("\n Введите первое число -->"); scanf_s("%d", &a); printf("\n Введите второе число -->"); scanf_s("%d", &b); printf("\n Введите третье число -->"); scanf_s("%d", &c); if ((a + b > 0) || (a + c > 0) || (b + c > 0))printf("\n Сумма каких-либо двух чисел является положительной"); else printf("\n Сумма любых двух чисел отрицательная"); printf("\n\n"); system("pause");}
Напишите программу , которая по заданным трём числам определяет , является ли сумма каких либо двух
4,7(91 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ