Дан массив в, содержащий 12 элементов целого типа, образуют ли 8 последних элементов этого массива возрастающую последовательность? если нет – вывести индекс элемента, на котором она заканчивается. нужно!
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
Функция 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.
Привет,да в таблицу можно вставлять и удалять строки и столбцы,это сделано для того что бы например ты внес(ла) в неё какую либо информацию,а потом решил,что она тебе не нужна и вместо того чтобы чтобы сидеть и долго стирать все это ты берёшь и удаляешь строку или столбец с этой информацией,или ещё другой ты создаёшь таблицу про моря и океаны(к примеру)и тебе надо 15 строк и 10 столбцов а изначально можно создать только 8 строк и 10 столбцов,и вот ты просто добавляешь строки со столбцами и у тебя всё получается!
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