• Дан массив из 10 элементов заполнить с клавиатуры: 1) вывести массив 2) вывести массив на экран 3) поменять местами 6 и 9 элемент массива 4) найти max элементов массива

     

Ответы 1

  • В данной программе предполагается что массив целочисленный 

    Program Massiv;

    Uses Crt;

    var a:array[1..10] of integer;

           temp,max,i:integer;

    begin

        clrscr; 

     

        for i:=1 to 10 do

              begin

                  write('Введите  ',i, 'элемент массива: ' );

                  readln(a[i]); 

             end;

       writeln;

     

         

     

     write('Исходный массив: ');

    max:=a[1]; 

     

     for i:=1 to 10 do

         begin

             write(a[i])

              write('  ');

            if (a[i]>max) tnen max:=a[i];    

         end; 

     

     temp:=a[6];

     a[6]:=a[9];

    a[9]:=temp;

     

     

     

     writeln;

      write('Массив после обмена: '); 

    for i:=1 to 10 do

         begin

             write(a[i])

              write('  ');  

         end;

    writeln;  

    writeln('Максимальный элемент массива: ',max);

          readkey;

     

     end.

     

     

     

    • Автор:

      wiggles
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years