Составьте не менее трех вариантов програмы определния наименьшего из трех данных чисел

1)

program m; uses crt; var i,a,b,c,min: integer; beginclrscr; readln(a,b,c);

if a< min then min: =a; if b< min then min: =b; if c< min then min: =c; writeln('              ',min); readkey; end.

 

2)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a); min: =a; for i: =1 to 2 do                       

                                                                beginreadln(a); if a< min then min: =a;                                                             end; writeln(min);

readkey;

end.

 

3)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a,b,c); if a< b then b: =a; if c< a then b: =c; writeln(b); readkey; end.

program program1; vari,min,max,nmin,nmax: integer; a: array [1..10] of integer; beginrandomize; writeln('исходный массив: '); for i: =1 to 10 dobegina[i]: =random(100)+1; writeln('a[',i,']=',a[i]); end; nmin: =1; min: =a[nmin]; nmax: =1; max: =a[nmax]; for i: =1 to 10 dobeginif a[i]> max thenbeginnmax: =i; max: =a[i]; end; if a[i]< min thenbeginnmin: =i; min: =a[i]; end; end; a[nmin]: =max; a[nmax]: =min; writeln('минимальный элемент a[',nmin,']=',min,' максимальный элемент a[',nmax,']=',max); writeln('полученный массив: '); for i: =1 to 10 dowriteln('a[',i,']=',a[i]); end.

var a,b,c: integer; beginwriteln('введите число и степень'); {здесь прост программа тебя спрашивает какие числа}read(a,b);     {здесь программа читает их}case b of       {тут выполняется условие типа если b и идут сами степени}0: writeln(1); 1: writeln(a);   {здесь что программа выдаст если ты напишешь такую степень}2: writeln (a*a); 3: writeln (a*a*a); 4: writeln (a*a*a*a); 5: writeln (a*a*a*a*a); 6: writeln (a*a*a*a*a*a); 7: writeln (a*a*a*a*a*a*a); 8: writeln (a*a*a*a*a*a*a*a); 9: writeln (a*a*a*a*a*a*a*a*a); end; end.