const nn=20; { указать максимально возможный размер } var a:array[1..nn,1..nn] of integer; n,i,j,mx,k:integer; begin Randomize; Write('n='); Read(n); mx:=-20; { меньше минимально возможного } for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=Random(21)-10; Write(a[i,j]:4); if a[i,j]>mx then begin mx:=a[i,j]; k:=1 end else if a[i,j]=mx then Inc(k) end; Writeln; end; Writeln('Максимальное значение ',mx,' встречается ',k,' раз(а)') end.
2. Решение на основе базовых возможностей PascalABC.Net 3.2
var a:array[,] of integer; begin Randomize; var n:=ReadInteger('n='); SetLength(a,n,n); var mx:=-20; // меньше минимально возможного var k:integer; for var i:=0 to n-1 do begin for var j:=0 to n-1 do begin a[i,j]:=Random(-10,10); Write(a[i,j]:4); if a[i,j]>mx then begin mx:=a[i,j]; k:=1 end else if a[i,j]=mx then Inc(k) end; Writeln; end; Writeln('Максимальное значение ',mx,' встречается ',k,' раз(а)') end.
Var n,one,dec,hun,s: integer; begin writeln (' введи четырехзначное число'); readln (n); one:= n mod 10; ( находим цифру на месте единиц) dec:= ( n div 10) mod 10; на предпоследнем разряде hun:= ( n div 100) mod 10; на третьем разряде с конца t:= n div 1000; на первом разряде s:=one+dec+hun+t; if (s mod 2=0) or ( s mod 3=0 ) then writeln (' кратна 2 или 3) else writeln (' не кратна'); end.
Var A:array[1..5,1..5] of integer; i,j:integer; Begin WriteLn('Исходный массив:'); For i:= 1 to 5 do Begin For j:= 1 to 5 do Begin A[i,j]:=random(21)-10; Write(A[i,j]:3,' ') End; WriteLn End; WriteLn; WriteLn('Обработанный массив:'); For i:= 1 to 5 do Begin For j:= 1 to 5 do Begin if i=j then if A[i,j] < 0 then A[i,j]:=0; Write(A[i,j]:3,' ') End; WriteLn; End End.