В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Kenny22332
Kenny22332
04.05.2020 15:34 •  Информатика

20б Всем привет.

решить, нужно (как решали).

3.е/4.e/5.e


20б Всем привет. решить, нужно (как решали).3.е/4.e/5.e

Показать ответ
Ответ:
Andrey11jr
Andrey11jr
27.07.2020 21:51
Const
  n = 9;

var
  a: array[1..n, 1..n] of integer;
  i, j, aii: integer;

begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(101) - 50;
      Write(a[i, j]:4)
    end;
    Writeln
  end;
  Writeln('Результирующий массив');
  for i := 1 to n do
  begin
    aii:=a[i,i];
    for j:=1 to n do
    begin
      if a[i,j]<aii then a[i,j]:=1 else a[i,j]:=0;
      Write(a[i,j]:4)
    end;
    Writeln
  end
end.

Тестовое решение:
Исходный массив
 -11  19  48  32  -6 -39 -45 -13 -27
  44  20 -44  27 -50  14 -19 -12  32
   2  48 -16  40  -8 -38  35 -15  41
  -1 -24 -18  35 -49 -11  22  -4  -1
  36 -26  -8  -2  -9 -17  41  44 -13
   0 -25  -6 -35 -18  -6 -28  46  44
   5  -1 -23  36  47 -41 -30   7 -39
  41 -41  19  17 -45   5 -35  -4 -36
 -11 -46   6 -50  49  -2  26 -15 -40
Результирующий массив
   0   0   0   0   0   1   1   1   1
   0   0   1   0   1   1   1   1   0
   0   0   0   0   0   1   0   0   0
   1   1   1   0   1   1   1   1   1
   0   1   0   0   0   1   0   0   1
   0   1   0   1   1   0   1   0   0
   0   0   0   0   0   1   0   0   1
   0   1   0   0   1   0   1   0   1
   0   1   0   1   0   0   0   0   0
0,0(0 оценок)
Ответ:
ruzannakokh
ruzannakokh
27.10.2020 23:00
Uses
  Crt;

const
  n = 10;

type
  V = array[1..n] of integer;

function Mid(var a: V): double;
var
  i, s: integer;
begin
  s := 0;
  for i := 1 to n do s := s + a[i];
  Mid := s / n
end;

var
  x: V;
  i, j: integer;
  m: double;

begin
  Randomize;
  m := 0;
  for i := 1 to 5 do
  begin
    Writeln('Элементы массива ', i);
    for j := 1 to n do
    begin
      x[i] := Random(100);
      Write(x[i]:3)
    end;
    Writeln;
    m := m + Mid(x)
  end;
  Writeln('Среднее арифметическое пяти массивов равно ', m)
end.

Тестовое решение:
Элементы массива 1
 95 44 54 86 52 39 28 79 29 43
Элементы массива 2
 75 55 26 22 12 93 34 60 34 42
Элементы массива 3
 55 80 50 54 52 46 85 47 11 86
Элементы массива 4
 33 35  5 64 36 66 76 55 24 43
Элементы массива 5
 31 63 66 11 88  4 31 99 28 39
Среднее арифметическое пяти массивов равно 76.6
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота