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

Составьте программу которая формирует массив из 9 случайных чисел и заменят все элементы массива единицами.

👇
Ответ:

Я не стану выбирать С++ - это все же язык для решения совсем иных задач.

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(9, -50, 50);

 a.Println;

 a.Fill(t -> 1);

 a.Println

end.

1 3 17 -6 -22 19 -1 -29 -201 1 1 1 1 1 1 1 1
4,5(29 оценок)
Ответ:
nataliolejic
nataliolejic
30.04.2023

Язык не указан,поэтому на свой выбор си++.

Задание не пояснено.Что значит формирует? Это динамика или статика?



#include<iostream>;

using namespace std;

int main()

{

 

int arr[9] = { 0, 0, 0, 0, 0, 0, 0, 0, 0 };

cout << endl << "array of random numbers" << endl;

for (int i = 0; i < 9; i++)

{

 arr[i] = rand() % 10;

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

}

cout << endl<<"replacing an array with units" <<endl;

for (int i = 0; i < 9; i++)

{

 arr[i] = 1;

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

}

cout << endl;

system("pause");

return 0;

}


Составьте программу которая формирует массив из 9 случайных чисел и заменят все элементы массива еди
4,4(36 оценок)
Открыть все ответы
Ответ:
nekitpundya2256
nekitpundya2256
30.04.2023
Задача 1
Var i,sum:integer;
      mas:array [1..10] of integer;
Begin 
  for i:=1 to 10 do begin         
     mas[i]:=random(20);           
      write(' ',mas[i]);           
     sum:=sum+mas[i];                   
                         end; 
writeln; 
   write('Среднее арифметическое этих чисел = ',sum/10);
End.

Задача 2 
Var i,max:integer;
Begin 
readln(i); 
    while (i<>0) do begin   
       if (i>max) then max:=i;   
          readln(i);     
                       end; 
  Writeln('Максимальное число: ',max);
End.
4,8(71 оценок)
Ответ:
zaqwsxcde
zaqwsxcde
30.04.2023

ответ:

объяснение:

    используем формулу нахождения объема:

    i = m x n * i

    подсчитаем каждый сомножитель в формуле, стараясь числа к степеням двойки:

    m x n:

    160 * 160 = 20 * 2³ *   20 * 2³ = 400 * 26 =

    = 25 * 24 * 26

    нахождение глубины кодирования i:

    256 = 28

    т.е. 8 бит на пиксель   (из формулы кол-во цветов = 2i)

    находим объем:

    i = 25 * 24 * 26 * 23 = 25 * 213 - всего бит на всё изображение

    переводим в кбайты:

    (25 * 213) / 213 = 25 кбайт

4,7(46 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ