Добавил:
korayakov
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабы / Pascal.1.курс / part 1 / variant 13 / lab6
.PAS Program matrix;
Uses crt;
const
n=6;
Var
Matr: array [1..n,1..n] of integer;
a: array [1..n] of integer;
i,j,k,l,max:integer;
begin
Textcolor(lightgreen);
Textbackground(black);
clrscr;
randomize;
writeln;
for i:=1 to n do begin
for j:=1 to n do begin
matr[i,j]:=-5+random(10);
write(matr[i,j]:3);
if matr[i,j]<0 then a[i]:=a[i]+1;
end;
writeln; writeln;
end;
max:=-6;
for i:=1 to n do begin
if matr[i,i]<0 then begin
for j:=1 to n do begin
if matr[i,j]>max then begin
max:=matr[i,j];
k:=i;
l:=j;
end;
end;
end;
end;
writeln('Max: matr[',k,',',l,'] = ',max);
writeln;
writeln('Massiv');
for i:=1 to n do write(a[i],' ');
writeln;
writeln('Press ENTER');
readln;
end.
Uses crt;
const
n=6;
Var
Matr: array [1..n,1..n] of integer;
a: array [1..n] of integer;
i,j,k,l,max:integer;
begin
Textcolor(lightgreen);
Textbackground(black);
clrscr;
randomize;
writeln;
for i:=1 to n do begin
for j:=1 to n do begin
matr[i,j]:=-5+random(10);
write(matr[i,j]:3);
if matr[i,j]<0 then a[i]:=a[i]+1;
end;
writeln; writeln;
end;
max:=-6;
for i:=1 to n do begin
if matr[i,i]<0 then begin
for j:=1 to n do begin
if matr[i,j]>max then begin
max:=matr[i,j];
k:=i;
l:=j;
end;
end;
end;
end;
writeln('Max: matr[',k,',',l,'] = ',max);
writeln;
writeln('Massiv');
for i:=1 to n do write(a[i],' ');
writeln;
writeln('Press ENTER');
readln;
end.
Соседние файлы в папке variant 13