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

В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:
for i:=0 to 10 do
A[i]:= i + 1;
for i:=1 to 9 do
A[i+1]:= A[i];
Чему будут равны элементы этого массива?
1) 1 1 1 1 1 1 1 1 1 1 1
2) 11 10 9 8 7 6 5 4 3 2 1
3) 2 3 4 5 6 7 8 9 10 11
4) 1 2 2 2 2 2 2 2 2 2 2

Показать ответ
Ответ:
Loomina
Loomina
19.07.2022 18:36

//PacalABC.NET 3.4.2

//Используется формула аналогичная формуле Бине для чисел

//Фибоначчи

const

 index = power(33, 0.5);

 a1 = power((19 + 3 * index), 1 / 3);

 a2 = power((19 - 3 * index), 1 / 3);

 b = power((586 + 102 * index), 1 / 3);

var

 n, i: smallint;

 x: uint64;

function tribonacthi(n: smallint): biginteger;

begin

 if (n = 1) or (n = 2) then result := 0

 else

   result := RoundBigInteger(3 * b * ((power((1 / 3 * (a1 + a2 + 1)), n - 1)) / (power(b, 2) - 2 * b + 4)));

end;

begin

 try

   n := readinteger('Введите n:');

   x := readinteger('Введите x:');

 except

   on system.formatexception do

   begin

     writeln('Неверный формат ввода');

     exit;

   end;

 end;

 writeln('1)', tribonacthi(n), ' ');

 write('2)');

 i := 1;

 while (tribonacthi(i) < x) do

 begin

   write(tribonacthi(i), ' ');

   i += 1;

 end;

end.

0,0(0 оценок)
Ответ:
MrBOPOH
MrBOPOH
14.12.2022 12:26

uses crt;

var

 ar: array[1..19]of integer;

 i, mul, sum, count, min, mini: integer;

begin

 count := 0;

 sum := 0;

 mul := 1;

 randomize;

 for i := 1 to 19 do

 begin

   ar[i] := random(13) - 6;

   mul := mul * ar[i];

   if(ar[i] mod 2 = 0) then

   begin

     textbackground(green);  

     sum := sum + ar[i];

     count := count + 1;

   end;

   if(ar[i] = 5) then

     textbackground(red);

   write(ar[i], ' ');

   textbackground(black);  

 end;

 writeln();

 writeln('Произведение всех элементов массива = ', mul);

 writeln('Сумма четных чисел = ', sum, ', количество = ', count);

 min := ar[1];

 mini := 1;

 write('Номера элементов, равных 5: ');

 for i := 1 to 19 do

 begin

   if(ar[i] = 5) then

     write(i, ' ');

   if((ar[i]) < min) then

   begin

     min := ar[i];

     mini := i;

   end;

 end;

 writeln();

 writeln('Минимальный элемент = ', min, ', его номер = ', mini);

end.

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