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

Question

Информатика

Ядвига

6 мая, 07:20

Дан массив 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.