Const m = 3; n = 4; var a: array[1..m, 1..n] of integer; b: array[1..m] of real; i, j, k: integer; min:real;
begin Writeln('Введите оценки студентов'); for i := 1 to m do begin b[i]:=0; for j := 1 to n do begin Read(a[i,j]); b[i]:=b[i]+a[i,j] end; b[i]:=b[i]/n end; k:=1; min:=b[1]; for i:=2 to 3 do if min>b[i] then begin min:=b[i]; k:=i end; Writeln('Студент номер ',k,' имеет минимальный cредний ',min:5:2) end.
Тестовое решение: Введите оценки студентов 5 4 4 3 3 5 3 4 4 5 4 5 Студент номер 2 имеет минимальный cредний 3.75
Const n = 10; var a: array[1..n] of integer; i, j, t: integer;
begin Randomize; Writeln('Исходный массив'); for i := 1 to n do begin a[i] := Random(16)-10; Write(a[i]:4) end; Writeln; for i := 1 to n-1 do for j := 1 to n-i do if a[j] > a[j+1] then begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end; Writeln('Отсортированный по возрастанию массив'); for i := 1 to n do Write(a[i]:4); Writeln end.
После выполнения алгоритма y будет равен 367.