Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  123
Language: PASCAL
Code:
program mykr;
type a=array [1..4,1..4] of integer;
var b:array [1..4, 1..4] of integer;
var c:array [1..4] of integer;
var i,j,x,y,z,k,f:integer;
function otricat (d:a):integer;
begin

     for i:=1 to 4 do
               c[i]:=0;
     for i:=1 to 4 do begin
        for j:=1 to 4 do
                if b[i][j]<0 then c[i]:=c[i]+1;
     end;
     x:=0;
     f:=0;
     for i:=1 to 4 do begin
        if c[i]>f then begin
                x:=i;
                f:=c[i];
        end;
     end;
     otricat:=x;

end;
begin

        randomize;
        writeln ('Sgenerirovannuy massiv:');
        for i:=1 to 4 do begin
                for j:=1 to 4 do begin
                  b[i][j]:=random(100)-50;
                  write(b[i][j]:4);

                end;
                writeln;
        end;
        k:=otricat(b);
        write ('Stroka massiva s maksimalnym kolichestvom'#10'otritsatelnyh elementov:');
        writeln;
        for j:=1 to 4 do
        write(b[k][j], ' ');
        assign(output,'c:/file.txt');
        rewrite(output);

        writeln ('Sgenerirovannuy massiv:');
        for i:=1 to 4 do begin
                for j:=1 to 4 do
                  write(b[i][j]:4);
                writeln;
        end;

        k:=otricat(b);
        write ('Stroka massiva s maksimalnym kolichestvom otritsatelnyh elementov:');
        writeln;
        for j:=1 to 4 do
        write(b[k][j], ' ');
        close(output);
        readln;

end.
Comments: