Вчисловом массиве из 6 элементов. найти максимальный элемент и поменять его местами с первым элементом

182

473

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

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

eviljew1

Информатика

4,6(68 оценок)

Program mas; uses crt; var x: array [1..8,1..7] of integer; i,j,a,b: integer; begin clrscr; write('введите диапазон значений заполнения(a-начальное значение, b-конечное): '); repeat read(a,b); until a< =b; writeln; randomize; for i: =1 to 8 do for j: =1 to 7 do x[i,j]: =random(b-a+1)+a; writeln('ваш массив: '); for i: =1 to 8 do begin for j: =1 to 7 do write(x[i,j]: 5); writeln; end; for i: =1 to 8 do for j: =1 to 3 do x[i,j]: =sqr(x[i,j]); writeln; writeln('рeзультат: '); for i: =1 to 8 do begin for j: =1 to 7 do write(x[i,j]: 5); writeln; end; readkey; end.