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

ну да

byte это числа от 0 до 255, а integer тоже целые, но диапазон просто шире

Окей. И можно скипнуть ClrScr? Это ведь не обязательно?

не обязательно

Супер. Спасибо большое~

Program mass;Uses Crt;Var a: array [1..10] of integer; i,c,b: byte ;Begin ClrScr;For i :=1 to 10 do begina[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.