Как перевести программу с PascalABC.NET в Free Pascal

@Нелли80 · Регистрация: 29.05.2018

Author24 — интернет-сервис помощи студентам

Pascal

program post;
uses crt;
 const nmax=100;
var i,j,k,n,m,s,p,n1: integer;
 a: array[1..nmax,1..nmax] of integer;
begin
clrscr;
randomize; 
writeln('Введите количество строк k' );
readln(k);
writeln('Введите количество столбцов m' );
readln(m);
 for i:=1 to k do begin
 for j:=1 to m do begin
  a[i,j]:=random(100)-10;
  write(a[i,j]:3);
  end; 
  writeln; 
 end;
 writeln;
write('На сколько позиций сдвинуть? n=');
readln(n);
n1:=n mod k;
for j:=1 to m do
for i:=1 to n1 do
 begin
  s:=a[k,j];
  for p:=k downto 2 do
  a[p,j]:=a[p-1,j];
  a[1,j]:=s;
 end;
   writeln('Вывод преобразованного массива' );
   for i:=1 to k do
   begin
   for j:=1 to m do
   write(a[i,j]:3);
   writeln;
   end;
   readln;
   end.

@Puporev · 29.05.2018, 16:15

А кто Вам сказал что это именно АВС.net? Спокойно запускайте в любом Паскале.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	29.05.2018, 16:15	2
	А кто Вам сказал что это именно АВС.net? Спокойно запускайте в любом Паскале. 0