Задать вопрос
1 февраля, 19:47

Дан целочисленный линейный массив. Удалить из него последний четный элемент.

+4
Ответы (1)
  1. 1 февраля, 22:24
    0
    Uses Crt;

    const

    n=15;

    var

    a:array[1 ... n] of integer;

    i, j, k, t:integer;

    found:boolean;

    begin

    ClrScr;

    Randomize;

    Writeln ('Исходный массив:') ;

    for i:=1 to n do begin

    a[i]:=Random (90) + 1;

    Write (a[i],' ')

    end;

    Writeln;

    i:=n; found:=False;

    repeat

    found: = (a[i] mod 2=0) ;

    if (not found) then Dec (i)

    until found or (i=0) ;

    if found then begin

    for i:=i to n-1 do a[i]:=a[i+1];

    Writeln ('Результирующий массив:') ;

    for i:=1 to n-1 do Write (a[i],' ')

    end;

    ReadKey

    end.

    Тестовое решение:

    Исходный массив:

    60 90 39 83 24 70 82 53 45 5 12 9 85 57 47

    Результирующий массив:

    60 90 39 83 24 70 82 53 45 5 9 85 57 47
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дан целочисленный линейный массив. Удалить из него последний четный элемент. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Хотя бы 3-4 задачи! 1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5). 2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.
Ответы (1)
дан массив из семи элементов написать программу подсчитывающую среднее второго и предпоследнего элементов массива дан целочисленный массив из 10 элементов написать программу находящую сумму элементов массива красных 3 ил 5 дан целочисленный массив
Ответы (1)
8. Дан целочисленный линейный массив. Вставить в него число 100 после m-го элемента, если этот элемент четный. В противном случае - перед ним.
Ответы (1)
1.) Вывести на экран одномерный целочисленный массив, состоящий из 10 целых чисел из диапазона [-100; 100] 2.) Задан одномерный целочисленный массив, состоящий из 7 случайных чисел.
Ответы (1)
1. Дан одномерный целочисленный массив. Найти числа, которые при делении на 3 и 5 дают одинаковые остатки, посчитать их количество. Если такий чисел нет, то вывести соответствующее сообщение. 1. Д ан одномерный целочисленный массив.
Ответы (1)