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

Логики, не шарю совсем за неё смотрите прикреплённые файлы. эта фигня на зачёт. кто может. только с полным решением

Показать ответ
Ответ:
sona238
sona238
17.03.2021 06:03

1)

const N = 10;

var A: array [1..N, 1..N] of integer;

i, j, maxMain, maxSecond: integer;

begin

       writeln('A: ');

       for i:= 1 to N do

       begin

               for j:= 1 to N do

               begin

                       A[i, j]:= random(-30, 30);

                       write(A[i, j]:4);

               end;

               writeln();

       end;

   

       for i:=1 to N do

       begin

               for j:= 1 to N do

               begin

                       if (i = j) and (maxMain < A[i, j]) then

                               maxMain := A[i, j];

                       if (i + j = N + 1) and (maxSecond < A[i, j]) then

                               maxSecond := A[i, j];

               end;

       end;

       writeln('Макс. на глав. диагонали: ' + maxMain);

       writeln('Макс. на побочной. диагонали: ' + maxSecond);

end.

2)

const N = 10;

var A: array [1..N] of real;

B, C: array of real;

i: integer;

begin

       write('A: ');

       for i:= 1 to N do

       begin

               A[i]:=random(-10, 10);

               write(A[i] + ' ');

       end;

       writeln();

   

       for i:=1 to N do

       begin

               if (a[i] > 0) then

               begin

                       SetLength(B, Length(B) + 1);

                       B[High(B)]:=a[i];

               end;

               if (a[i] < 0) then

               begin

                       SetLength(C, Length(C) + 1);

                       C[High(C)]:=a[i];

               end;

       end;

   

       write('B: ');

       for i:= 0 to Length(B) - 1 do

               write(B[i] + ' ');

       writeln();

   

       write('C: ');

       for i:= 0 to Length(C) - 1 do

               write(C[i] + ' ');

       writeln();

end.

0,0(0 оценок)
Ответ:
Voproshayka
Voproshayka
04.09.2020 16:56
Кузнечик сидит в точке 0. Будем считать, что количество как попасть в точку ноль - 1. 

У нас всего 6 кочек, 6  - конечная.
Мы перемещаемся либо на последующую (+1), либо через одну (+2), либо через две (+3). То есть если мы были на кочке один и прыгнули через две кочки, то попадем в кочку 4 (1 + 3). 

Начнём считать.
0 - мы на первом берегу. Наши кочки: 1, 2, 3, 4, 5 и 6 обозначены СЛЕВА. 7 этапом мы прыгнем на другой берег.

1: [0] = 1 сп.
2: [0,1] = 1 + 1 = 2 сп. 
3: [0,1, 2] = 1 + 1 + 2 = 4 сп.
4: [1, 2, 3] = 1 + 2 + 4 = 7 сп.
5: [2, 3, 4] = 2 + 4 + 7 = 13 сп.
6: [3, 4, 5] = 4 + 7 + 13  = 24 сп.
7: [4, 5, 6] = 7 + 13 + 24 = 44 сп. 

Всего существует как перебрать на другой берег болота.

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