Написать процедуру и функцию, находящие среднее арифметическое двух чисел.

Function avg(a,b: real): real; begin   avg: =(a+b)/2 end; procedure avg2(a,b: real; var c: real); begin   c: =(a+b)/2 end; var   a,b,c: real; begin   write('введите два произвольных числа: '); readln(a,b);   writeln('среднее значение, найденное функцией: ',avg(a,b));   avg2(a,b,c);   writeln('среднее значение, найденное процедурой: ',c) end. тестовое решение: введите два произвольных числа: 11.7 14.519 среднее значение, найденное функцией: 13.1095 среднее значение, найденное процедурой: 13.1095

Function average( x, y: real ); var c: real; begin c : = ( x + y ) / 2; writeln('среднее арифметическое двух чисел с функции: ', c); end; procedure average_p( x, y: real ); var c: real; begin c : = ( x + y ) / 2; writeln('среднее арифметическое двух чисел с процедуры: ', c); end; var a, b: real; begin write('введите число a: '); readln(a); write('введите число b: '); readln(b); average(a,b); average_p(a,b); end.

Изначально s = 60 цикл будет работать 6 раз первый проход цикла: k = 5, тогда s  =  60 - 5  = 55 второй проход цикла: k = 6 (т.к один проход уже сделан, и значение переменной k увеличилось на 1), тогда s = 55 - 6 = 49 третий проход цикла: k  =  7, тогда s = 49 - 7 = 42 четвертый проход цикла:   k = 8, тогда s = 42  -  8 = 34 пятый проход цикла: k = 9, тогда s = 34 - 9 = 25 шестой проход цикла: k = 10, тогда s = 25 - 10 = 15 окончательный ответ: значение переменной s после выполнения цикла = 15

Вот программа: uses crt; const n=20; type vec=array [1..n] of integer; var a: vec;       i, sum1, sum2, col1, col2: integer; begin clrscr; randomize; sum1: =0; sum2: =0; col1: =0; col2: =0; writeln('massiv a : ');   for i: =1 to n do         begin             a[i]: =random(100);             write(a[i]: 4);             if a[i]< 50 then                   begin                       sum1: =sum1+a[i];                       col1: =col1+1;                   end  else                   begin                       sum2: =sum2+a[i];                       col2: =col2+1;                   end;         end;         writeln;         writeln('sred< 50 : ', sum1/col1: 6: 2) ;         writeln('sred> =50 : ', sum2/col2: 6: 2) ; readln; end.