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

Вот тебе простой вариант ришение (коментар=пояснение) pascalвыделить код 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16   program prg;   uses crt;   var   rez,chislo,min,max: integer;   begin   write('enter number =   '); readln(chislo);                 //zanosim 1 chislo   max: =chislo;                                               //v max ta min   min: =chislo;                                               //chtobu potom mu soukb sravnivat s drugimi chislamu   while (chislo< > 0) do                                       //zapuskaem zikl poka mu ne napishem 0   begin   if (chislo> max)then max: =chislo;                         //sravnivaem s max   if (chislo< min) then min: =chislo;                         //sravnivaem s min   readln(chislo);                                           //snova pihem chislo   end;   rez: =(max-min);                                           //nahodim raznizy   writeln('max(',max,') - min(',min,') = ',rez);           //otvet end.

Ну во-первых программирование это создание каких-либо компьютерных программ, во-вторых программирование нужно, без них компьютер представляет между собой кусок металла. языки  программирования   начали появляться в начале 1950 г использовались для преобразования простых арифметических выражений. вот, например, хотите вы создать презентацию, а откуда взялась это программа, ее написали программисты или хотите сыграть в игру, без программ, компьютер был бы ненужной вещью