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

Question

Информатика

Козьма

25 октября, 02:15

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

+3

Ответы (1)

Знаете ответ на вопрос?

Муся · Answer 1

Program mass;

Uses Crt;

Var

a: array [1 ... 10] of integer;

i, c, b: byte;

Begin

ClrScr;

For i : = 1 to 10 do

begin

a[i]: = random (10) ;

writeln (a[i]) ;

end;

writeln;

b:=a[1];

c:=a[10];

a[1]:=c;

a[10]:=b;

For i : = 1 to 10 do

writeln (a[i]) ;

end.