Сформировать массив из 100 чисел (использовать оператор random в диапазоне от 0 до 50). Записать их в текстовый файл в обратном
порядке по 6 чисел в строке.
в Pascal
Умники, которые пишут бред ради - лесом, достали уже.

по идее должно работать  

Объяснение:

program uva;  

var i,k:integer;  

f1,f:text;  

a:array[1..100] of integer;

begin  

assign(f,'OUTPUT.txt');  

for i:=1 to 100 do  

a[i]:=random(50);  

for i:=1 to 100 do  

begin    

k:=a[101-i];    

a[101-i]:=a[i];    

a[i]:=k;  

end;    

Assign(f1, 'C:\OUTPUT.txt');        

Rewrite(f1);        

for i:=1 to 100 do      

begin      

if i mod 6 =1 then writeln(f1,a[i])

else write (f1,a[i])      

end;    

close (f1);

end.