function findMax (A : matrix): real; var i : integer; x : real; begin x := A[1,2]; for i := 2 to m do if A[i,2] > x then x := A[i,2]; findMax := x end;
var A : matrix; i,j : integer;
begin for i := 1 to m do for j := 1 to n do read(A[i,j]); writeln(findMax(A)) end.
В СССР доступные бытовые магнитофоны распространились примерно со второй половины 1950-х — начала 1960-х годов. В это время возникло особое социальное явление — магнитофонная культура или «магнитиздат». Легкость копирования магнитных записей позволила почти неограниченно распространять произведения, не одобрявшиеся официальной идеологией, но популярные в народе: песни бардов и первых полуподпольных рок-групп, западную популярную музыку, неофициальные выступления писателей-сатириков, лекции по уфологии, передачи «вражеских голосов» и т. п.[30][31] Магнитофоны быстро вытеснили с рынка кустарную грамзапись — грампластинки, записанные на использованной рентгенопленке («музыка на ребрах»).
var x: array[1..n] of integer; i, k, t, min: integer;
begin Randomize; Writeln('Исходные элементы массива'); min := 1000; for i := 1 to n do begin x[i] := Random(101) - 50; Write(x[i]:4); if min > x[i] then begin min := x[i]; k := i end end; t := x[k]; x[k] := x[1]; x[1] := t; Writeln; Writeln('Результирующие элементы массива'); for i := 1 to n do Write(x[i]:4); Writeln end.
n = 3;
m = 3;
type
matrix = array [1..m,1..n] of real;
function findMax (A : matrix): real;
var
i : integer;
x : real;
begin
x := A[1,2];
for i := 2 to m do
if A[i,2] > x then
x := A[i,2];
findMax := x
end;
var
A : matrix;
i,j : integer;
begin
for i := 1 to m do
for j := 1 to n do
read(A[i,j]);
writeln(findMax(A))
end.