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

Найди закономерность и продолжи последовательность, написав ещё четыре следующие буквы через запятую, через пробел (например: ц, ч, щ, ъ): ё, и, л, о, пропуск .

Показать ответ
Ответ:
Щерсть
Щерсть
07.03.2021 22:48
DIM m AS INTEGER
CLS
INPUT "m=", m
DIM a(1 TO m, 1 TO m) AS INTEGER
RANDOMIZE TIMER
FOR i = 1 TO m
   FOR j = 1 TO m
      a(i, j) = 50 * RND - 25
      PRINT USING ""; a(i, j);
   NEXT j
   PRINT
NEXT i
DIM P AS DOUBLE, S AS INTEGER
DIM B(1 TO m) AS DOUBLE
P = 1
FOR i = 1 TO m
   S = 0
   FOR j = 1 TO m
      IF a(i, j) > 0 THEN P = P * a(i, j)
      S = S + a(i, j)
   NEXT j
   B(i) = S / m
NEXT i
PRINT "P="; P
PRINT "Vector"
FOR i = 1 TO m
   PRINT USING "###."; B(i)
NEXT i

Пример
m=5
   3 -12  -2  -3  -4
  11 -13  21  20  14
  21   5  18 -20  -1
  -3  24 -24 -19   8
 -14 -24  -7  -2  -3
P= 70413235200
Vector
 -3.60000
 10.60000
  4.60000
 -2.80000
-10.00000
0,0(0 оценок)
Ответ:
Jujuliliaa
Jujuliliaa
30.01.2022 01:47
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

1)

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var b:=a.Rows.Select(r->r.Where(t->t.IsOdd).LastOrDefault); b.Println;
end.

Пример
Количество строк и столбцов в массиве: 8 5
*** Исходный массив [8,5] ***
 -41  36 -99  14  17
 -22  12  71 -94 -42
 -35 -40  26   2  24
  39  17  20  11  84
 -53 -18  97  -6   5
   2  67 -54  -6  -3
  95 -87  90 -13 -37
 -81 -21  61 -90 -60
--------------------
17 71 -35 11 5 -3 -37 61

2)

begin
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(20,10,2,5);
  a.Println(2); Writeln(2*a.ColCount*'-');
  Writeln('Ср. 5-го ученика: ',a.Row(4).Average)
end.

Пример
*** Исходный массив ***
 2 2 3 3 4 3 4 2 3 2
 4 3 2 3 2 4 3 2 5 3
 4 2 3 3 4 5 5 2 2 4
 5 2 4 2 4 5 4 2 3 3
 5 3 3 2 3 4 5 4 4 4
 3 2 3 2 3 2 5 2 4 4
 4 4 5 5 2 4 5 5 4 2
 2 2 5 4 4 2 4 3 2 2
 2 2 4 4 2 4 4 4 5 4
 2 3 4 4 5 3 3 4 5 4
 5 2 5 3 3 2 3 5 3 2
 3 4 2 3 4 3 2 3 4 3
 2 2 2 2 2 4 4 2 4 2
 5 2 3 3 3 5 3 2 2 5
 2 4 2 4 3 3 3 2 5 4
 3 2 5 4 4 4 5 5 3 5
 4 3 2 3 3 2 2 4 2 4
 2 5 2 5 2 3 2 4 5 4
 3 3 2 2 5 4 3 5 4 4
 2 3 5 3 3 5 4 5 2 2
--------------------
Ср. 5-го ученика: 3.7

Завтра нужно сдать , а у меня никак не получается ; ( 1) дан двумерный массив целых чисел. сформиров
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота