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

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

+4
Ответы (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 элементов, заполненный случайными числами. В первой половине массива увеличить четные элементы в два раза, а во ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Хотя бы 3-4 задачи! 1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5). 2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.
Ответы (1)
1. Дан одномерный массив размерностью 10, заполненный целыми числами, введенными с клавиатуры, и величина N. Отрицательные элементы заменить на N. Измененный массив вывести на экран одной строкой. 2.
Ответы (1)
Во имя радостных мессий, помогите хоть одну задачку. Не шарю ( Дан массив из 15 элементов. Необходимо заполнить его с помощью оператора присваивания (случайными числами), вывести все элементы в строку, а затем вывести произведение всех элементов
Ответы (1)
1) Заполнить массив размером N целыми числами последовательно от 1 до N. Вывести его на экран. Найти сумму элементов массива и вывести ее на экран. 2) Заполнить массив размером N целыми числами последовательно от N до 1. Вывести его на экран.
Ответы (1)
1. Возвести в квадрат все элементы массива A. Размер массива и значения элементов массива - произвольные. 2. Увеличить на 4 все элементы в первой половине массива A (считать, что в массиве чётное число элементов).
Ответы (1)