Переделать программу с Паскаля в Делфи

@Derzky · Регистрация: 01.12.2015

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

Программа меняет элементы матрицы(a[i,j]), которые больше 5 на a[i,j]-2 и отрицательные на их модуль. Помогите переделать в делфи

Pascal

var
 a : array  [1..100, 1..100] of longint;
 b : array  [1..100, 1..100] of longint;
 i, j, n: longint;
Begin
 Write('Введiть размiри матрицi n=');
 Readln(n);
 For i:=1 to n do
 for j:=1 to n do
 Read(a[i,j]);
 For i:=1 to n do
 for j:=1 to n do
 b[i,j]:=a[i,j];
        For i:=1 to n do
        for j:=1 to n do
         Begin
         If a[i,j]>5 then a[i,j]:=a[i,j]-2;
         if a[i,j]<0 then a[i,j]:=abs(a[i,j]);
         end;
  Writeln('Початкова матриця:');
 For i:=1 to n do
 Begin
  for j:=1 to n do
 Write(b[i,j]:3 );
 writeln;
 end;
 writeln;
  Writeln('Нова матриця:');
 For i:=1 to n do
 Begin
  for j:=1 to n do
 Write(a[i,j]:3 );
 writeln;
 end;
 writeln;
End.

@mss · 21.12.2015, 19:50

перед всей этой хренью вставляешь ровно две строки:

Delphi

1 2	program blabla; {$APPTYPE CONCOLE}

вуаля - программа готова

	21.12.2015, 19:50

Переделать программу с Паскаля в Делфи

Решение