profile
Опубликовано 6 лет назад по предмету Информатика от den2323

Дан одномерный массив А,состоящий из N различных элементов. Поменять местами наименьший и наибольший элемнты массива. Полученный массив вывести на печать.

( в basice желательно) 

  1. Ответ
    Ответ дан artifex

    var a:array [1..100] of integer;
    n,i:byte;
    m,b,c:byte;
    begin
    m:=1;
    b:=1;
    write('Введите n = ');readln(n);
    for i:=1 to n do begin
    readln(a[i]);
    if a[i]<a[m] then m:=i;
    if a[i]>a[b] then b:=i;
    end;
    c:=a[m];
    a[m]:=a[b];
    a[b]:=c;
    write('Результат: ');
    for i:=1 to n do
    write(a[i],' ');
    end.

     

    П.С. как будет возможность набацаю на бейсике

Самые новые вопросы