Задать вопрос
29 октября, 14:36

дан массив из четного числа элементов. поменять местами его половины

+4
Ответы (1)
  1. 29 октября, 16:50
    0
    const

    N = 20;

    var

    A : array [1 ... N] of Integer;

    Pos, Sum, Znak : Integer;

    begin

    Write ('Массив: ') ;

    Randomize;

    for Pos : = 1 to N do

    begin

    A[Pos] : = Random (101) - 50;

    Write (A[Pos]:4) ;

    end;

    WriteLn;

    for Pos : = 1 to N div 2 do Sum : = Sum + A[Pos] - A[N div 2 + Pos];

    WriteLn ('Разность между суммой 1-й половины и 2-й = ', Sum) ;

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