var a, b, c, d, i, j :integer; s :array [1..100,1..100] of integer; begin b:=63999; c:=-63999; for i:=1 to 15 do begin writeln; for j:=1 to 15 do begin s[i,j]:=random(127998)-63999; a:=a+s[i,j]; if s[i,j]>c then c:=s[i,j]; if s[i,j]<b then b:=s[i,j]; write (s[i,j],' '); end; end; writeln; writeln ('Сумма элементов = ', a); writeln ('Максимальный элемент = ', c); writeln ('Минимальный элемент = ', b); end.
begin writeln('Введите возраст призеров:'); readln(a,b,c); if (a < b) and (a < c) then begin max := a; writeln('Самый младший - первый призер, ему ',max,' лет.'); end; if (b < a) and (b < c) then begin max := b; writeln('Самый младший - второй призер, ему ',max,' лет.'); end; if (c < a) and (c < b) then begin max := c; writeln('Самый младший - третий призер, ему ',max,' лет.'); end; end.
===== PascalABC.NET =====
begin
var (m, n) := ReadInteger2('Число строк и столбцов:');
var a := MatrRandom(m, n, -99, 99);
a.Println(4);
a[0, n - 1].Println
end.