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

Создать массив а из 10 целых чисел, принадлежащих промежутка [0; 20). вывести полученный массив на экран. вычислить количество элементов массива, значение которых превышает среднему арифметическому значению

👇
Ответ:
denthegamerp01iih
denthegamerp01iih
06.02.2022
Var
a : array[0..9] of integer;
i, k : integer;
s : real;
Begin
s := 0;
k := 0;
randomize;
for i := 0 to 9 do begin
a[i] := random(20);
Write(a[i], ' ');
s := s + a[i];
end;
s := s / 10;
For i := 0 to 9 do
if a[i] > s then
inc(k);
Writeln();
Writeln(k);
End.
4,8(80 оценок)
Ответ:
//прога на Pascal`e
var
a : array[1..10] of  shortint;
i, count, sum : byte; 
begin
randomize;

write ('Сформированный массив: ');
for i:=1 to 10 do
begin
a[i]:=random (20);
write (a[i], '; ');
inc (sum, a[i]);
end;
writeln ();
write ('Кол-во элементов массива, значение которых превышает СА: ');
for i:=1 to 10 do
if a[i]>(sum/10) then inc (count, 1);
write (count);
end.
4,4(59 оценок)
Открыть все ответы
Ответ:
Arsen2045
Arsen2045
06.02.2022

//не забудь!!

using namespace std;

int *arr; // указатель для выделения памяти под массив

   int size; // размер массива

   

   // Ввод количества элементов массива

   cout << "n = ";

   cin >> size;

   if (size <= 0) {

       // Размер масива должен быть положитлеьным

       cerr << "Invalid size" << endl;

       return 1;

   }

   arr = new int[size]; // выделение памяти под массив

int  arr1[] = arr;

   // заполнение массива

   for (int i = 0; i < size; i++) {

       cout << "arr[" << i << "] = ";

       cin >> arr[i];

   }

   int temp; // временная переменная для обмена элементов местами

   // Сортировка массива пузырьком

   for (int i = 0; i < size - 1; i++) {

       for (int j = 0; j < size - i - 1; j++) {

           if (arr[j] > arr[j + 1]) {

               // меняем элементы местами

               temp = arr[j];

               arr[j] = arr[j + 1];

               arr[j + 1] = temp;

           }

       }

   }

if (arr1 == arr) {

cout << "Yes" << endl;

}

4,7(84 оценок)
Ответ:
Mary2304Cat
Mary2304Cat
06.02.2022
uses crt,graph; type mas=array[1..500] of Pointtype; var gd,gm,i,j,k,n:integer;     a:mas; begin randomize; gd:=0; initgraph(gd,gm,''); for i:=1 to 500 do  begin   a[i].x:=random(getmaxX);   a[i].y:=random(getmaxY);   circle(a[i].x,a[i].y,2);  end; k:=0;n:=0; repeat k:=k+1; delay(200); setcolor(0); for i:=1 to 500 do circle(a[i].x,a[i].y,2); for i:=1 to 500 do  begin   if a[i].y>getmaxY-n-10 then a[i].y:=1   else a[i].y:=a[i].y+3;   if a[i].x<0 then a[i].x:=getmaxX   else a[i].x:=a[i].x-1;  end; setcolor(15); for i:=1 to 500 do circle(a[i].x,a[i].y,2); if k mod 20=0 then  begin   n:=n+1;   line(0,getmaxY-n,getmaxX,getmaxY-n);  end; until keypressed; readln end.
4,7(32 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ