Var r:array[1..100,1..100] of integer;i,j,n,k,sum:integer; p:double; b:array[1..30]of integer;beginp:=1;randomize;write('Введите n: ');readln(n); writeln('Исходная матрица: ');for i:=1 to n dobeginfor j:=1 to n dobeginr[i,j]:=random(10)-5;write(r[i,j]:4);end;writeln;end; writeln;for i:=1 to n dobeginfor j:=1 to n dobeginif i>=j then beginwrite(r[i,j]:4);if r[i,j]> 0 then begin k:= k + 1; p:= p * r[i,j]; b[k]:= r[i,j]; end;end elsewrite(' ':4);end;writeln;end;writeln('p = ', p);writeln(b);end.
procedure EnterMas(var Mas: Matrix); var i, j: integer; begin randomize; for i := 1 to n do for j := 1 to m do Mas[i, j] := random(100); end;
procedure GiveMas(var Mas: Matrix); var i, j: integer; begin for i := 1 to n do begin for j := 1 to m do begin write(Mas[i, j], ' '); end; writeln; end; end;
function SumStroki(Mas: Matrix; i, k: integer): integer; var j, sum: integer; begin sum := 0; for j := 1 to m do Sum := Sum + Mas[i, j]; SumStroki := sum - k; end;
function Element(var Mas: Matrix): integer; var i, j, count: integer; begin count := 0; for i := 1 to n do for j := 1 to m do if Mas[i, j] > SumStroki(Mas, i, Mas[i, j]) then inc(count); Element := count; end;
var Mas: Matrix; Sum, Max: integer;
begin EnterMas(Mas); GiveMas(Mas); writeln('Кол-во особых элементов ', Element(Mas)); end.
Язык Паскаль был создан Никлаусом Виртом в 1968—1969 годах после его участия в работе комитета разработки стандарта языка Алгол-68. Язык назван в честь французского математика, физика, литератора и философа Блеза Паскаля, который создал первую в мире механическую машину, складывающую два числа. Первая публикация Вирта о языке датирована 1970 годом, представляя язык, автор указывал в качестве цели его создания — построение небольшого и эффективного языка хорошему стилю программирования, использующемуструктурное программирование и структурированные данные.
writeln('Исходная матрица: ');for i:=1 to n dobeginfor j:=1 to n dobeginr[i,j]:=random(10)-5;write(r[i,j]:4);end;writeln;end;
writeln;for i:=1 to n dobeginfor j:=1 to n dobeginif i>=j then beginwrite(r[i,j]:4);if r[i,j]> 0 then begin k:= k + 1; p:= p * r[i,j]; b[k]:= r[i,j]; end;end elsewrite(' ':4);end;writeln;end;writeln('p = ', p);writeln(b);end.