Блок-схему к этой программе(одномерные массивы)язык программирования-паскаль. программа: var a, b: array [1..15] of integer; i, max, min, j1, j2, sum, k: integer; begin write('измерения ростов всех студентов '); randomize; for i: =1 to 15 do begin a[i]: =random(50)+140; write ('а[',i,']-',a[i],'; '); end; writeln; write('рост самого высокого студента (номер): '); max : = 0; min : = 65535; k : = 0; sum : = 0; for i : = 1 to 15 do begin if (a[i] > max) then begin max : = a[i]; j1 : = i; end; if (a[i] < min) then begin min : = a[i]; j2 : = i; end; sum : = sum + a[i]; if (a[i] > 170) then begin inc(k); b[k] : = a[i]; end; end; writeln(j1); write('рост самого низкого студента (номер): '); writeln(j2); write('средний рост: '); writeln(sum/15: 4: 2); write('массив b: '); for i : = 1 to k do write('b[',i,']',b[i], '; '); readln; end. вывод: измерения ростов всех студентов а[1]-159; а[2]-183; а[3]-176; а[4]-168; а[5]-156; а[6]-165; а[7]-187; а[8]-144; а[9]-162; а[10]-164; а[11]-142; а[12]-158; а[13]-159; а[14]-163; а[15]-182; рост самого высокого студента (номер): 7 рост самого низкого студента (номер): 11 средний рост: 164.53 массив b: b[1]183; b[2]176; b[3]187; b[4]182; буду ))
