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

Информатика 11 класс. найти разность между максимальным и средним арифметическим элементами квадратной матрицы, заданной случайным образом. этапы решения : описать переменные; сформировать массив; напечатать его; найти максимальный (минимальный) элемент; найти сумму всех элементов; найти среднее арифметическое, вычислить нужную разность ; напечатать результат.

👇
Ответ:
cfvceyu2004
cfvceyu2004
26.06.2021
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк/столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var s:=a.ElementsByRow; // последовательность не хранится в памяти
  Writeln('Искомая разность равна ',s.Max-s.Average:0:5)
end.

Пример
Количество строк/столбцов в матрице: 7
*** Исходная матрица ***
 -44 -99  13  98 -98  74 -40
 -23  65 -41 -39 -56  -5  -7
  77 -98  37  74 -60  96 -12
  31  66 -99   9  46 -57  78
 -25 -79 -48 -18  69   4  60
  62 -62 -45 -99  57 -17 -45
  89 -96 -16  33  -1  76 -98

Искомая разность равна 102.34694
4,6(25 оценок)
Ответ:
oksankavelsh
oksankavelsh
26.06.2021
//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)

var 
 a:array[1..100,1..100] of integer;
 n,s,i,j,max:integer;
begin
  write('Введите размер матрицы: ');readln(n);
  max:=-100;
  for i:=1 to n do 
  begin
   for j:=1 to n do
   begin
    a[i,j]:=random(-100,100);
    write(a[i,j]:5);
    s:=s+a[i,j];
    if a[i,j]>max then max:=a[i,j];
   end;
   writeln;
  end;
  writeln('Максимальное: ',max);
  writeln('Сумма: ',s);
  writeln('Сред.арифм.: ',s/sqr(n));
  writeln('Разность: ',max-s/sqr(n));
 readln;
end.

Пример:
Введите размер матрицы: 5
   93  -60  -11  -17   57
   13  -18  -91  -38    9
  -55   18  -86  -61   53
   24  -46   68  -63   43
   88  -59  -10  -65   36
Максимальное: 93
Сумма: -178
Сред.арифм.: -7.12
Разность: 100.12
4,6(74 оценок)
Открыть все ответы
Ответ:
annfeed17082005
annfeed17082005
26.06.2021
Наступает век современных технологий. Например, книгу, которую раньше мы должны были искать в магазине или библиотеке, теперь можно легко найти в Интернете. Ниже будут приводиться сравнения между книгой (и прочими "бумажными" ресурсами) и электронной страницей:
- Чтобы потерять книгу, достаточно просто где-нибудь её забыть. В троллейбусе, в гостях, на работе. А может, вы уронили её в лужу? Вряд ли после такого получится восстановить её содержимое и читать её с прежним удовольствием. При той же ситуации с электронными образовательными ресурсами (далее ЭОР) можно просто скачать копию страницы уже на новое устройство и продолжить изучение. Если речь идёт о каком-то онлайн обучении, то тут всё ещё проще.
- Использование ЭОР вместо печатных изданий выгоднее в плане экологии. Чисто в перспективе, чем больше людей будет предпочитать ЭОР обычным книгам, тем меньше будет спрос на эти книги. А значит, меньше поводов вырубить лишнее дерево.
- В большинстве случаев ЭОР обновляется гораздо чаще, нежели энциклопедии. Руководствуясь Интернетом, мы будем получать гораздо больше свежих и актуальных знаний, нежели читая только книги. Очевидно, несколько часов, проведённых в Интернете на образовательных сайтах, дадут человеку больше знаний, чем наши прапрадеды копили всю жизнь.
- Доступно. Большинство курсов абсолютно бесплатны, причём зачастую из них можно получить больше знаний, чем из обычной книги.

Вывод: Сегодня всё больше и больше людей находят, что электронные версии текста лучше бумажных. Тем не менее, не стоит забывать, благодаря чему наши предки подарили нам Всемирную паутину.
4,4(76 оценок)
Ответ:
rfrfrfrfe
rfrfrfrfe
26.06.2021
1.
var i,N,c: integer;

var a: array of integer;

var b: array of integer;

begin

c:=0;

readln(N);

Setlength(a,N);

setlength(b,N);

for i:=0 to a.Length-1 do

begin

readln(a[i]);

if a[i] >0 then

begin

b[c]:=a[i];

c:=c+1;

end;

end;

Setlength(b,c);

write(b);

end.

2.

var N,M: integer;

type a = array of array of integer;

var matr: a;

function CreateMatrix(N,M: integer): a;

begin

  SetLength(Result,N);

  for var i:=0 to N-1 do

    SetLength(Result[i],M);

end;

procedure FillMatrByRead(matr: a);

begin

  for var i:=0 to matr.Length-1 do

  for var j:=0 to matr[0].Length-1 do

    readln(matr[i,j]); 

end;

procedure WriteMatrix(matr: a);

begin

  for var i := 0 to matr.Length-1 do

  begin

    for var j := 0 to matr[0].Length-1 do

      write(matr[i,j]:3);

    writeln;

  end;

end;

procedure MatrixZero(matr: a);

begin

  for var i := 0 to matr.Length-1 do

  begin

    for var j := 0 to matr[0].Length-1 do

      if (matr[i,j] = 0) then

      write('matr','[',i,',',j,']');

    writeln;

  end; 

end;

begin

readln(N,M);

matr:= CreateMatrix(N,M);

FillMatrByRead(matr);

WriteMatrix(matr);

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