Заполнить одномерный массив целых чисел из 12 элементов случайным образом. вывести его на экран. в следующей строке вывести элементы массива, имеющие порядковые номера 2,3,4,9,12. в следующей строке вывести максимальный элемент массива.

156

221

Посмотреть ответы 3

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

Aza3lo

Информатика

4,5(5 оценок)

Uses crt; const n=12; var mas: array [1..n] of integer; x,max: integer; begin randomize; for x: =1 to n do begin mas[x]: =random(99)+1; writeln('mas[',x,']: ',mas[x]); end; max: =mas[1]; for x: =1 to n do if mas[x]> max then max: =mas[x]; writeln; writeln(mas[2],' ',mas[3],' ',mas[4],' ',mas[9],' ',mas[12]); writeln('max=',max); readln; end.

София1991

Информатика

4,4(69 оценок)

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.