profile
Опубликовано - 1 месяц назад | По предмету Информатика | автор Аноним

Pascal!!!В одномерном массиве размерностью n=10 отсортировать по возрастанию четные элементы массива.Вывести исходный

  1. Ответ
    Ответ дан Лазарева Нина
    Program newmassiv;
    uses crt;
    type
    matr=array[1..10] of integer;
    var
    a: matr;
    procedure vvod(var a:matr);
    var
    i: integer;
    begin
    for i:=1 to 10 do
    begin
    write ('Введите элемент массива a[',i,']');
    readln(a[i]);
    end;
    end;
    procedure ivyvod(var a: matr);
    var i: integer;
    begin
    write ('Исходный массив ');
    for i:=1 to 10 do
    write (a[i],' ');
    writeln;
    end;
    procedure sort(var a:matr);
    var
    i,j,min: byte; vsp: integer;
    begin
    for i:=1 to 9 do
    begin
    min:=i;
    for j:=i+1 to 10 do
    if a[j]<a[min] then min:=j;
    vsp:=a[i]; a[i]:=a[min]; a[min]:=vsp;
    end;
    end;
    procedure vyvod(a:matr);
    var
    i:integer;
    begin
    write('Отсортированная последовательность массива ');
    for i:=1 to 10 do
    begin
    if a[i] mod 2 = 0 then write(' ',a[i]);
    end;
    end;
    begin
    vvod(a);
    ivyvod(a);
    sort(a);
    vyvod(a);
    end.
    0