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

Дан массив в, содержащий 12 элементов целого типа, образуют ли 8 последних элементов этого массива возрастающую последовательность? если нет – вывести индекс элемента, на котором она заканчивается. нужно!

👇
Ответ:
nadiushenica
nadiushenica
31.08.2022
Const
  n=12;
var
  b:array[1..n] of integer;
  i,k:integer;
begin
  Randomize;
  Write('Последовательность: ');
  for i:=1 to n do begin
    b[i]:=Random(41)+10;
    Write(b[i],' ')
    end;
  Writeln;
  k:=5;
  for i:=6 to n do
    if b[i]>b[i-1] then k:=i
    else break;
  if k=n then Writeln('Последние 8 элементов в возрастающей последовательности')
  else
    if k>5 then Writeln('Возрастание элементов идет с номера 5 по ',k)
    else Writeln('Следующий за пятым элемент не возрастает')
end.

Пример
Последовательность: 44 10 33 40 15 33 45 26 43 45 49 48
Возрастание элементов идет с номера 5 по 7
4,7(58 оценок)
Открыть все ответы
Ответ:
MashaLipitenko
MashaLipitenko
31.08.2022
Функция isSevenHere возвращает истину, если в числе есть семерка, и ложь - если ее нет. В цикле for перебираем все значения от 1 до K (число, введенное с клавиатуры), и выводим на экран только те, где есть семерка.

Код программы:

function isSevenHere(number : integer) : boolean;var digit : integer;begin  Result := true;  while (number > 0) do  begin        digit := number mod 10;    if (digit = 7) then            exit;    number := number div 10;  end;  Result := false;end;
var i,k :integer;begin  write('Введите k: ');  readln(k);
  for i := 1 to k do    if (isSevenHere(i) = true) then      write(i,' ');end.
Найти и вывести на экран все целые числа из промежутка от 1 до k, в десятичной записи которых есть ц
4,8(36 оценок)
Ответ:
nikihouston342
nikihouston342
31.08.2022
Привет,да в таблицу можно вставлять и удалять строки и столбцы,это сделано для того что бы например ты внес(ла) в неё какую либо информацию,а потом решил,что она тебе не нужна и вместо того чтобы чтобы сидеть и долго стирать все это ты берёшь и удаляешь строку или столбец с этой информацией,или ещё другой ты создаёшь таблицу про моря и океаны(к примеру)и тебе надо 15 строк и 10 столбцов а изначально можно создать только 8 строк и 10 столбцов,и вот ты просто добавляешь строки со столбцами и у тебя всё получается!
4,4(76 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ