Дан массив L, содержащий 40 элементов в интервале от 10 до 50, замените первый и последний элементы массива. Заранее буду благодарен, сделайте в паскале.

Question

Информатика

Германа

3 января, 00:00

Дан массив L, содержащий 40 элементов в интервале от 10 до 50, замените первый и последний элементы массива. Заранее буду благодарен, сделайте в паскале.

+2

Ответы (1)

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

Арий · Answer 1

Var a : array[1 ... n] of integer;

b, i : integer;

begin

Randomize;

for i:=1 to n do

begin

a[i]:=random (41) + 10;

write (a[i],' ') ;

end;

writeln;

b:=a[1]; a[1]:=a[n]; a[n]:=b;

for i:=1 to n do write (a[i],' ') ;

writeln

end.