Составьте программу, которая заполняет массив [1..10] случайными целыми числами в диапазоне от 1 до 10, затем меняет местами первый и последний элементы. выведите на экран исходный и полученный массивы.

266

325

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

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

Malina235

Информатика

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

program program1; vara: array [1..10] of integer; i,temp: integer; beginrandomize; writeln('исходный массив: '); for i: =1 to 10 dobegina[i]: =random(10)+1; writeln('a[',i,']=',a[i]); end; temp: =a[1]; a[1]: =a[10]; a[10]: =temp; writeln; writeln('полученный массив: '); for i: =1 to 10 dowriteln('a[',i,']=',a[i]); end.

ВеликийЗнаток

Информатика

4,7(91 оценок)

Const m=9; n=6; var a: array[1..m,1..n] of integer; i,j: integer; begin randomize; writeln('исходный массив'); for i: =1 to m do begin for j: =1 to n do begin a[i,j]: =random(201)-100; { на интервале [-100; 100] } write(a[i,j]: 5) end; writeln end end.