• 26 November 2013
    • Химия
    • Автор: Пожалуиста

    Составьте программу,которая заполняет массив a[1..10] случайными числами в диапазоне от 0 до 10,затем первый элемент меняет местами с максимальным элементом.Выведите на экран исходный и полученный массивы.


    • 26 November 2013
    • Ответ оставил: mrkuzka

    Uses crt;
    const n=10;
     var a:array[1..n] of integer;
     i,max,k:integer;
     begin
     randomize;
     for i:=1 to n do
     begin
     a[i]:=random(10);
     write(a[i],' ');
     end;
     writeln;
     max:=-1;
     for i:=1 to n do
     if a[i]>max then begin max:=a[i]; k:=i; end;
     a[1]:=a[1]+a[k];
     a[k]:=a[1]-a[k];
     a[1]:=a[1]-a[k];
     for i:=1 to n do
     write(a[i],' ');
     end.
     

    Оцените ответ

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету...

Последние и похожие вопросы

Ответ на вопрос Составьте программу,которая заполняет массив a[1..10] случайными числами в диапазоне от 0 до 10,затем первый элемент меняет местами с максимальным элементом.Выведите н... - Вопросов.Нет

404