На графическом рисунке скрыт термин
за 10 б​

Первое :

var

i, num, nums2, nums3, nums4, nums5: Integer;

begin

for i := 1 to 20 do

begin

ReadLn(num);

if num = 2 then

nums2 := nums2 + 1

else if num = 3 then

nums3 := nums3 + 1

else if num = 4 then

nums4 := nums4 + 1

else if num = 5 then

nums5 := nums5 + 1 ;

end;

WriteLn('Количество двоек - ', nums2);

WriteLn('Количество троек - ', nums3);

WriteLn('Количество четвёрок - ', nums4);

WriteLn('Количество пятёрок - ', nums5);

end.

Второе:

var

i, height, minHeight, maxHeight: Integer;

totalHeight: Real;

begin

for i := 1 to 20 do

begin

ReadLn(height);

if (i = 1) or (height < minHeight) then

minHeight := height ;

if (i = 1) or (height > maxHeight) then

maxHeight := height ;

totalHeight := totalHeight + height;

end;

WriteLn('Максимальный рост - ', maxHeight);

WriteLn('Минимальный рост - ', minHeight);

WriteLn('Средний рост - ', Round(totalHeight / 20.0))

end.

Объяснение:

const

 nm=100;

var

 a: array[1..nm] of integer;

 i,k,l,n,buf:  integer;

begin

 randomize;

 write('vvedite n ');

 readln(n);

 writeln('ishodniy massiv:');

 for i:=1 to n do

 begin

   a[i]:=random(99)+1;

   write(a[i],' ');

 end;

 writeln;

 write('vvedite k,l (k<l) : ');

 readln(k,l);

for i:=k to (l-k)div 2+k do

begin

buf:=a[k];

a[k]:=a[l];

a[l]:=buf;

 k:=k+1;  

 l:=l-1;

end;

for i:=1 to n do write(a[i],' ');

readln;

end.

const

 nm=100;

var

 a,b: array[1..nm] of integer;

 i,n:  integer;

begin

 randomize;

 write('vvedite n>10 ');

 readln(n);

 writeln('ishodniy massiv a:');

 for i:=1 to n do

 begin

   a[i]:=random(99)+1;

   write(a[i],' ');

 end;

 writeln;

 for i:=1 to n do

if i<=10 then b[i]:=a[i]+i

else b[i]:=a[i]-i;

writeln('massiv b:');    

  for i:=1 to n do write(b[i],' ');

 readln;

end.