Заполнить одномерный массив целых чисел из 12 элементов случайным образом. Вывести его на экран. В следующей строке вывести элем
<span>Заполнить одномерный массив целых чисел из 12 элементов случайным образом. Вывести его на экран. В следующей строке вывести элементы массива, имеющие порядковые номера 2,3,4,9,12. В следующей строке вывести максимальный элемент массива.</span>
Program gt; var a:array[1..12]of integer; n,i,max:integer; begin randomize; for i:=1 to 12 do begin a[i]:=random(100)-50; write(a[i],' '); end; writeln; write(a[2],' ',a[3],' ',a[4],' ',a[9],' ',a[12],' '); max:=a[1]; for i:=2 to 12 do begin if(a[i]>max)then max:=a[i]; end; writeln(max); end.