Написать программу в паскаль, с функции. дан вектор n (1< =n< =100).найти минимальный элемент, который не превышает целое число m.

// pascalabc.net 3.0, сборка 1088 const   nn=100; type   vector=array[1..nn] of integer; function min(a: vector; n: integer): integer; var   i,m: integer; begin   m: =a[1];   for i: =2 to n do       if a[i]< m then m: =a[i];   min: =m end; var   v: vector;   i,n,m,mn: integer; begin   write('количество элементов вектора: '); read(n);   write('значение m: '); read(m);   randomize;   writeln('*** сгенерированный вектор ***');   for i: =1 to n do begin       v[i]: =random(101)-50;       write(v[i],' ')       end;   writeln;   mn: =min(v,n);   if mn< =m then writeln('минимум ',mn,' не превышает ',m)   else writeln('минимум ',mn,' превышает ',m) end. тестовое решение: количество элементов вектора: 20 значение m: -42 *** сгенерированный вектор *** -12 10 -47 8 6 -22 -4 8 -50 -2 36 -38 -39 -41 11 -46 41 -22 -50 24 минимум -50 не превышает -42

Сценарий дегеніміз қойылым,анимация,ойын компазициясы

Сценарий:Салеметсизбе құрметті оқушылар

Бүгін біз аналар мереуесін тойлаймыз

Біздің аналарымыз бізді бағып,ақыл айтып,қолында ұстады.Сондықтан біз оларды құрметтеу керекпіз!!

Ал қазір біз балалардын қойлымын көреміз

3)анимациялық сценарий мультфиль жасау үшін керек ол шетте ғажайып оқиғалар,ертегілер туралы жазады

Қойылым сценариі концерт,театрларғы қоладынлады

Думаю так удачи