komarov-dmitriy
?>

Нужна программа полная по паскалю. дано n целых чисел, полученных от датчика случайных чисел в диапазоне от -1000 до 1000. в цикле for найти среднее значение чисел, кратных числу m, заданному с клавиатуры.

Информатика

Ответы

Lorik-lorik29
Var
N,M,S,A,i,j:integer;
Begin
S:=0;
j:=0;
Write('N = ');Read(N);
Write('M = ');Read(M);
For i:= 1 to N do
   Begin
   A:=random(2001)-1000;
   Write(A,' ');
   if A mod M = 0 then
      Begin
      S:=S+A;
      j:=j+1;
      End;
   End;
WriteLn;
if j=0 then Write('Чисел, кратных ',M,' нет')
else Write('Среднее арифметическое чисел, кратных ',M,' = ',S/j);
End.
cherkashenko87543

1)К электронным носителям относят носители для однократной или многократной записи (обычно цифровой) электрическим

оптические (CD-ROM, DVD-ROM, Blu-ray Disc);

полупроводниковые (флеш-память, SSD-диски);

магнитные (магнитные ленты, дискеты, жёсткие диски).

2) для скачивания

3)Имя файла состоит из двух частей, разделённых точкой: собственно имя файла и расширение, определяющее его тип (программа, данные и так далее).

4)Архиватор файлов — это компьютерная программа, которая объединяет несколько файлов в один архивный файл или серию архивных файлов для упрощения переноса, отправки или хранения.

5)CD диски можно разделить на CD-ROM, CD-R и CD-RW. Это деление обусловлено возможностью записать на диск информацию и предназначением диска.

...

Записать на CD-R, CD-RW, DVD-R, DVD-RW информацию:

Несколько текстовых файлов;

Несколько звуковых файлов;

Несколько видео-файлов

fursov-da

#include <iostream>

using namespace std;

int main()

{

   int line, column;

   cout << "Введите количество строк и столбцов через пробел: ";

   cin >> line >> column;

   int array[50][50] = {};

   cout << "Введите элементы двумерного массива: \n";

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

   {

       for (int j = 0; j < column; j++)

       {

           cin >> array[i][j];

       }

   }

   int min = array[3][0];

   int column_number = 1;

   for (int j = 0; j < column; j++)

   {

       int i = 3;

       if (min > array[i][j])

       {

           min = array[i][j];

           column_number = j + 1;

       }

   }

   cout << column_number;

}

Объяснение:

#include <iostream>  // Библиотека ввода - вывода

using namespace std;  // Пространство имен

int main()

{

    int line, column;  // Создание целочисленных переменных, отвечающих за количество строк и столбцов в двумерном массиве

 cout << "Введите количество строк и столбцов через пробел: ";  // Вывод сообщения в консоль

 cin >> line >> column;  // Ввод количества строк и столбцов с клавиатуры

 int array[50][50] = {};  // Создание целочисленного массива размером 50х50

 cout << "Введите элементы двумерного массива: \n";  // Вывод сообщения в консоль

 for (int i = 0; i < line; i++)  // Цикл для ввода элементов массива

 {

     for (int j = 0; j < column; j++)  // Цикл для ввода элементов массива

     {

         cin >> array[i][j];  // Ввод элементов массива

     }

 }

   int min = array[3][0];  // Присваиваем переменной, хранящей минимум, значение массива в 3 строке и 0 столбце

   int column_number = 1;  // Переменная, хранящая номер столбца

   for (int j = 0; j < column; j++)   // Цикл для прогона значений 4-й строки

   {

       int i = 3;  // Нужны значения определенной строки ⇒ значение переменной i будет постоянным

       if (min > array[i][j])  // Если значение переменной min > значения массива i строки и j столбца

       {

           min = array[i][j];  // Значение переменной min = значению массива i строки и j столбца

           column_number = j + 1;  // Номер столбца = индекс столбца + 1 (т. к. индексация начинается с нуля)

       }

   }

   cout << column_number;  // Вывод ответа

}

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Нужна программа полная по паскалю. дано n целых чисел, полученных от датчика случайных чисел в диапазоне от -1000 до 1000. в цикле for найти среднее значение чисел, кратных числу m, заданному с клавиатуры.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

zoomagazinkotmatroskin
tarhan1221
office46
a-zotova
nikdenly
Федоровна-Васильева
Ingakazakova
natabodrikova
Александровна1244
Шабунина-Евгения1883
Kharkina1328
Vs1377
TatianaSeliverstova64
Бирюков Карпова1379
tany821