Составить программу решения : спортсмен в первый день пробегает 5 километров, а в каждый следующий день на 10 километров больше, чем в предыдущий. сколько километров он пробежит в 10-й день? найти общую сумму пробега за 10 дней

1)5+10+15+20+25+30+35+40+45+50=275(км)-общая 2)5,10,15,20.25,30,35,40,45,50

Впервый день - 5 км. во второй день - 15 км. в третий - 25 км. в четвёртый - 35. в пятый - 45 км. в шестой - 55 км. в седьмой - 65 км. в восьмой - 75 км. в девятый - 85 км. в десятый - 95 км. 

1. Max - это системная функция/ Не стоит называть таким именем свою.

2. Последнее условие в процедуре не совсем понятно. И для нахождения максимального значения оптимальнее это делать в одном цикле. В PascalABC так вообще можно написать     m:=a.max; и ВСЁ.  Но если хотите как на Pascal -  Я исправил.

3. Функция ищет максимальное значение в массиве.

Pascal

var

maxa:integer;

 procedure Getmax(c:integer; var m:integer);

 var

   i:integer;

   a: array [1..100] of integer;

 begin

for i:=1 to c do begin

     a[i]:= random (20);

     write(a[i],' ');

     if m<a[i] then

       m:=a[i];

   end;  

   writeln;

 end;

begin  

 Getmax(100,maxa);

 writeln('Max=', maxa);

end.

// pascalabc.net 3.2, сборка 1374 от 10.01.2017 // внимание! если программа не работает, обновите версию! procedure printarr(f: text; a: array of integer); begin   foreach var x in a do write(f,x,' ');   writeln(f) end; begin   var fin: =openread('input.txt');   var n: =readlninteger(fin);   var a: =new integer[n];   for var i: =0 to n-1 do read(fin,a[i]);   var fout: =openwrite('output.txt');   fin.close;   printarr(fout,a);   var b: =a.where(x-> x.iseven).toarray;   printarr(fout,b);   var c: =a.where(x-> x.isodd).toarray;   printarr(fout,c);   fout.close end.