fork download

Program Count_Matrix;
type
   matrix = array of array of integer;
var
   q: matrix;
   i, j, sum, size:integer;
procedure input_file (var q: matrix; var size: integer);
var
   f: textfile;
   i, j: integer;
begin
   assignfile(f, 'input.txt');
   reset (f);
   readln(f,size);
   setlength(q, size);
   for i:=0 to size-1 do
      setlength(q[i],size);
   for i:= 0 to size-1 do
      begin
         for j:= 0 to size-1 do
         read(f,q[i,j]);
         readln(f);
      end;
   close(f);
end;
 
begin
   input_file (q, size);
   writeln('Матрица а:');
   for i:= 0 to size-1 do
      begin
         for j:= 0 to size-1 do
         write(q[i,j]:4);
         writeln;
      end;
   for i:=1 to size-1 do
      for j:=0 to i-1 do
      sum:=sum+q[i,j];
   writeln('Количество элементов матрицы под главной диагональю: ',(size-1)*size/2);
   writeln('Сумма элементов матрицы под главной диагональю:',sum)
end.

Main.java:1: error: class, interface, or enum expected
Program Count_Matrix;
^
Main.java:2: error: class, interface, or enum expected
type
^
Main.java:4: error: class, interface, or enum expected
var
^
Main.java:6: error: class, interface, or enum expected
   i, j, sum, size:integer;
   ^
Main.java:7: error: class, interface, or enum expected
procedure input_file (var q: matrix; var size: integer);
^
Main.java:7: error: class, interface, or enum expected
procedure input_file (var q: matrix; var size: integer);
                                     ^
Main.java:8: error: class, interface, or enum expected
var
^
Main.java:10: error: class, interface, or enum expected
   i, j: integer;
   ^
Main.java:11: error: class, interface, or enum expected
begin
^
Main.java:12: error: unclosed character literal
   assignfile(f, 'input.txt');
                 ^
Main.java:12: error: unclosed character literal
   assignfile(f, 'input.txt');
                           ^
Main.java:13: error: class, interface, or enum expected
   reset (f);
   ^
Main.java:14: error: class, interface, or enum expected
   readln(f,size);
   ^
Main.java:15: error: class, interface, or enum expected
   setlength(q, size);
   ^
Main.java:16: error: class, interface, or enum expected
   for i:=0 to size-1 do
   ^
Main.java:18: error: class, interface, or enum expected
   for i:= 0 to size-1 do
   ^
Main.java:22: error: class, interface, or enum expected
         readln(f);
         ^
Main.java:23: error: class, interface, or enum expected
      end;
      ^
Main.java:24: error: class, interface, or enum expected
   close(f);
   ^
Main.java:25: error: class, interface, or enum expected
end;
^
Main.java:27: error: class, interface, or enum expected
begin
^
Main.java:29: error: class, interface, or enum expected
   writeln('??????? ?:');
   ^
Main.java:29: error: unclosed character literal
   writeln('??????? ?:');
           ^
Main.java:29: error: unclosed character literal
   writeln('??????? ?:');
                      ^
Main.java:30: error: class, interface, or enum expected
   for i:= 0 to size-1 do
   ^
Main.java:34: error: class, interface, or enum expected
         writeln;
         ^
Main.java:35: error: class, interface, or enum expected
      end;
      ^
Main.java:36: error: class, interface, or enum expected
   for i:=1 to size-1 do
   ^
Main.java:39: error: class, interface, or enum expected
   writeln('?????????? ????????? ??????? ??? ??????? ??????????: ',(size-1)*size/2);
   ^
Main.java:39: error: unclosed character literal
   writeln('?????????? ????????? ??????? ??? ??????? ??????????: ',(size-1)*size/2);
           ^
Main.java:39: error: unclosed character literal
   writeln('?????????? ????????? ??????? ??? ??????? ??????????: ',(size-1)*size/2);
                                                                 ^
Main.java:40: error: class, interface, or enum expected
   writeln('????? ????????? ??????? ??? ??????? ??????????:',sum)
   ^
Main.java:40: error: unclosed character literal
   writeln('????? ????????? ??????? ??? ??????? ??????????:',sum)
           ^
Main.java:40: error: unclosed character literal
   writeln('????? ????????? ??????? ??? ??????? ??????????:',sum)
                                                           ^
34 errors

Standard output is empty