Блог для маленьких школьников и их родителей
ШколаЛа

Дан массив B(n), где n<=20. Поменять местами: 1) первый и максимальный элементы; 2) второй и минимальный….

Автор:
Предмет: Информатика
Уровень: студенческий

Дан массив B(n), где n<=20. Поменять местами:

1) первый и максимальный элементы;

2) второй и минимальный.
Выполнить в программе: pascal abc

Ответов к вопросу: 1
  • Wensky
    27.11.2024 | 15:21

    Ответ:
    Program z1;

    const n=20; //  значение n можно изменить

    var i,max,min,p,imin,imax:integer;
    a:array[1.n] of integer;

    begin
    min:=10000;
    for i:=1 to n do begin
     a[i]:=random(51);

     if(a[i] > max) then begin max:=a[i]; imax:=i; end; // 1-ый пункт

     if(a[i] < min) then begin min:=a[i]; imin:=i; end; // 2-ой пункт

     write(a[i]:3);

     end;

     

    p:=a[1]; // 1-ый пункт

    a[1]:=a[imax];

    a[imax]:=p;

    p:=a[2]; // 2-ой пункт

    a[2]:=a[imin];

    a[imin]:=p;

    writeln();

    for i:=1 to n do begin
     write(a[i]:3);  
     end;
    end.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.