Паскаль в первый день путешественник прошел 20 км. в каждый следующий день он проходил на 2 км больше чем в предыдущий день. какой путь он пройдет за 5 дней?

Var a,b,s: integer; begin a: =20; while b< 5 do begin s: =s+a; a: =a+2; b: =b+1; end; writeln('путник прошел ',s,' километров'); end.

Уже отвечал, но все же такое решение актуальнее:   var  ar: array[1..10] of integer; max,min,i,kmax,kmin: integer; begin randomize; max: =0; min: =1000; for i: =1 to 10 do begin    ar[i]: =random(1000)+1;     if (ar[i] > max) then      begin max: =ar[i]; kmax: =i; end        else if (ar[i] < min) then begin min: =ar[i]; kmin: =i;   end;     write(ar[i],' '); end; writeln(); if (kmax > kmin) then for i: =kmin+1 to kmax-1 do write(i,' ')      else if (kmax < kmin) then for i: =kmax+1 to kmin-1 do write(i,' '); end. p.s. в решении выше есть далеко ни одна ошибка ; )

1)составить алгоритм «вскипятить чайник» начало 2. открыть кран с водой. 3. налить воду в чайник. 4. закрыть кран. 5. включить плиту. 6. поставить чайник на огонь. 7. ждать, пока вода закипит. 8. выключить плиту. 9. сказать «чайник вскипел». 10. конец в этом примере каждая команда имеет свой порядковый номер и записывается на отдельной строке. этот алгоритм мы используем в нашей жизни или в быту. такой алгоритм называют бытовым.2)1. начало 2. выполнить первое действие: 81 : 9. 3. запомнить результат первого действия. 4. выполнить второе действие: 6 ∙ 4. 5.сложить результаты первого и второго действий. 6. записать ответ. 7. конец