Регистрация
ktoyatokoyinter
15.08.2022 17:45
Информатика
Есть ответ 👍

Случайным образом получить 15 чисел, числа в диапазоне [-50, 50]. 2. определить количество отрицательных среди них. 3. определить минимальное. 4. определить среднее арифметическое среди отрицательных. необходимо сделать в паскале

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

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

MrCrative25
MrCrative25
4,5(37 оценок)
Pascalabc.net 3.3.5, сборка 1669 от 21.05.2018 внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(15,-50,50); a.println;   writeln('отрицательных: ',a.where(t-> t< 0).count);   writeln('минимум: ',a.min);   writeln('среднее арифметическое отрицательных: ',           a.where(t-> t< 0).average) end. пример -16 47 -41 -26 1 3 27 -28 -26 4 -19 -13 -16 38 20 отрицательных: 8 минимум: -41 среднее арифметическое отрицательных: -23.125
narutoluffi1
narutoluffi1
4,6(39 оценок)
Const n=15; var a: array [1..n] of integer; i,k,m,s: integer; begin for i: = 1 to n do a[i]: = random(101)-50; writeln(a); for i: =1 to n do if a[i] < 0 then k: =k+1; writeln('отрицательных элементов: ',k); m: =a[1]; for i: =2 to n do if a[i] < m then m: =a[i]; writeln('минимальный элемент: ',m); s: =0; for i: =1 to n do if a[i] < 0 then s: =s+a[i]; writeln('среднее арифметическое отрицательных элементов: ',s/k) end.
vikimeis2006
vikimeis2006
4,4(99 оценок)

примечание: библиотека locale.h используется для корректного изображения языка в консоли. библиотека stdlib.h необходима для использования функции "system(pause)", которая используется в конце программы. не позволяет консоли после выполнения основной программы закрыться.

я к тому, что фактически, используется только iostream

#include "iostream"

#include "stdlib.h"

#include "locale.h"

using namespace std;

int main(){

setlocale(lc_all, "russian");

int n, m;

cout < < "введите кол-во строк(n): "; cin > > n;

cout < < "введите кол-во столбцов(m): "; cin > > m;

int a[n][m];

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

  for(int j = 0; j < m; j++){

  cout < < "элемент [" < < i < < "]" < < "[" < < j < < "]   =   "; cin > > a[i][j];

  }

}

cout < < "вывод массива" < < endl;

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

  for(int j = 0; j < m; j++){

    cout < < " " < < a[i][j] < < " ";  

  }

  cout < < endl;

}

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

  int min = a[0][i];

  int max = a[0][i];

  for(int j = 1; j < n; j++){

    if(min > a[j][i]){

      min = a[j][i];

    }else if(max < a[j][i]) max = a[j][i];

  }

  cout < < "столбец " < < i+1 < < " содержит (min, max): " < < "(" < < min < < "," < < max < < ")";  

  cout < < endl;

}

system("pause");

return 0;

}

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