Много (78) за блок- курсовую сдавать : ( программа на паскале uses crt; type mas=array [1..100] of integer; var b: mas; p, i, n: integer; procedure vvod (x: mas; k: integer); var i, p: integer; begin for i: =1 to n do begin write('vvedite chislo: '); readln(x[i]); end; for i: =1 to n do write(x[i]: 3); for i: =n downto 1 do if x[i]< 0 then p: =i; writeln; write('= ', x[p-1]); writeln; readln; end; begin clrscr; write('vvedite kol-vo chisel: '); readln((n)); vvod (b, n); readln; end.

N=int(input('задайте размер массива   ')); lst=(' '); mn=10e10; mx=0; p=-1;   for i in range (0,n):     if (int(lst[i])> 0 and int(lst[i]) % 2==0):         if (int(lst[i])< mn):               mn=int(lst[i]);         if (int(lst[i])> mx):               mx=int(lst[i]);         p=1; if (p< 0): print(p,p); else: print(mn,mx); задайте размер массива   6 -3 -4 -6 5 7 9 -1 -1 задайте размер массива   6 -2 -1 2 3 5 6 2 6

Function leng(var x,y,x1,y1: real): real; begin   leng: =sqrt(sqr(x-x1)+sqr(y-y1)); end; // основная программа var x1,y1,x2,y2,x3,y3,p: real; begin   write('координаты вершин   x1 y1 x2 y2 x3 y3 через пробел:   ');   readln(x1,y1,x2,y2,x3,y3);   if (leng(x2,y2,x1,y1) + leng(x3,y3,x2,y2) = leng(x3,y3,x1,y1)) or       (leng(x2,y2,x1,y1) + leng(x3,y3,x1,y1) = leng(x3,y3,x2,y2)) or       (leng(x3,y3,x2,y2) + leng(x3,y3,x1,y1) = leng(x2,y2,x1,y1)) then   writeln('точки лежат на одной прямой')   else    begin     p: =leng(x2,y2,x1,y1)+leng(x3,y3,x2,y2)+leng(x3,y3,x1,y1);     writeln('периметр: ',p: 7: 3);   end; end.координаты вершин   x1 y1 x2 y2 x3 y3 через пробел:   3 4 7 2 6 5 периметр:   10.797координаты вершин   x1 y1 x2 y2 x3 y3 через пробел:   1 2 3 4 5 6 точки лежат на одной прямой