Регистрация
Тирия
16.02.2021 20:17
Информатика
Есть ответ 👍

Гипер сілтеме типтерін сәйкестендір​

280
310
Посмотреть ответы 1

Ответы на вопрос:

ilka2004z
ilka2004z
4,4(12 оценок)
1. современное решение // pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(10,-10,10); a.println;   swap(a[a.indexmax],a[a.indexmin]); a.println; end. пример -4 4 5 9 8 -3 -10 -9 -2 -2 -4 4 5 -10 8 -3 9 -9 -2 -2 2. решение в стиле "турбопаскаль 1983г." var   i,imax,imin: integer;   a: array[1..10] of integer; begin   randomize;   imax: =1;   imin: =1;   for i: =1 to 10 do begin       a[i]: =random(21)-10;       write(a[i],' ');       if a[i]< a[imin] then imin: =i       else           if a[i]> a[imax] then imax: =i       end;   writeln;   i: =a[imax]; a[imax]: =a[imin]; a[imin]: =i;   for i: =1 to 10 do       write(a[i],' ');   writeln end.

Популярно: Информатика