Задать вопрос
26 мая, 22:05

Сформировать массив из 25 элементов, заполненный случайными числами. В первой половине массива увеличить четные элементы в два раза, а во второй половине разместить элементы в порядке убывания. Вывести на экран начальный и итоговый массив. (Pascal ABC)

+5
Ответы (1)
  1. 27 мая, 01:30
    0
    Const n=25;

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

    i, j, p:integer;

    begin

    for i:=1 to n do a[i]:=random (50) - 20;

    for i:=1 to n do write (a[i]:4) ;

    writeln;

    for i:=1 to 12 do

    if (a[i] mod 2 = 0) then a[i]:=2*a[i];

    for i:=14 to n-1 do begin

    for j:=14 to n-1 do

    if a[j]<=a[j+1] then begin

    p:=a[j]; a[j]:=a[j+1]; a[j+1]:=p;

    end;

    end;

    for i:=1 to n do write (a[i]:4) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Сформировать массив из 25 элементов, заполненный случайными числами. В первой половине массива увеличить четные элементы в два раза, а во ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы