Задать вопрос
1 сентября, 01:34

Ан массив целых чисел n=14 заполненный случайным образом числами из промежутка [-15 30] 1) удалить последний четный элемент 2) поменять местами первую и вторую его половины.

+2
Ответы (1)
  1. 1 сентября, 03:34
    0
    1)

    var

    i, k:integer;

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

    begin

    k:=0;

    for i:=1 to 14 do

    begin

    a[i]:=random (46) - 15;

    write (a[i]:3) ;

    if a[i] mod 2=0 then k:=i;

    end;

    if k>0 then

    begin

    for i:=k to 13 do a[i]:=a[i]+1;

    a[14]:=0;

    end;

    writeln;

    for i:=1 to 14 do write (a[i]:3) ;

    end.

    2)

    var

    i, k:integer;

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

    begin

    for i:=1 to 14 do

    begin

    a[i]:=random (46) - 15;

    write (a[i]:3) ;

    end;

    for i:=1 to 7 do

    begin

    k:=a[i];

    a[i]:=a[i+7];

    a[i+7]:=k;

    end;

    writeln;

    for i:=1 to 14 do write (a[i]:3) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Ан массив целых чисел n=14 заполненный случайным образом числами из промежутка [-15 30] 1) удалить последний четный элемент 2) поменять ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы