0001Гб 001МБ 2 КБ 13 байт 120 бит 0
//PascalABC.NET v3.3 1633
var arr: array [1..9] of byte;
begin
for var i:=1 to 9 do
arr[i]:=random(50,60);
for var i:=1 to 9 do
writeln(arr[i]);
var sum:=0;
for var i:=1 to 9 do
sum += arr[i];
writeln('Сумма эл. массива: '+sum);
end.
Добавлять, удалять, вносить данные, удалять данные, редактировать (изменять содержимое), форматировать (изменять внешний вид)