Const n=50;
var B:array[1..n] of integer; i:byte;x:integer;
begin
x:=1;
for i:1 to n do
begin
B[i]:=x;
x:=x+3;
end;
end.
Ну, конечно, можно.
50 * 60 = 3000 байт
3000 * 120 = 360000 байт
360000 : 1024 = 351,5625 Кбайт
А на дискетке - в 4 раза больше места.
const n=20;
var a:array [1..n] of integer;
i,s:integer;
begin
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(31)+20;
write(a[i]:3,' ');
if a[i] > 30 then s:=s+a[i]
end;
writeln;
write('Сумма чисел, больше 30: ',s)
end.