Дали са в нарастващ ред

Напишете процедура и функция, която по дадени три числа X, Y и Z определя дали са подредени в нарастващ ред. Функцията да връща резултата от проверката, а процедурата да го отпечатва на екрана.

По желание: Да се организира главната програма така, че да позволява няколко пъти да се въведат числа за тестване на функцията и процедурата.

Публикувано в 10в с етикети . Постоянна връзка.

Един коментар по Дали са в нарастващ ред

  1. kaloyan каза:
    program Project1;
    
    function sr_ar(a,b,c:integer):real;
      begin
        result:=(a+b+c)/3;
      end;
    
    var a,b,c:integer;
    begin
      writeln('Vavedi chislata:');
      readln(a,b,c);
      writeln('Srednoto aritmetichno e ',sr_ar(a,b,c):0:2);
    
    readln;
    end.

Вашият коментар