Const n = 5;{ это позволяет в одном месте изменить количество чисел }
type numeric = real;{ это позволяет в одном месте изменить тип чисел }
var max, min: numeric; i: integer; a: array[1..n] of numeric;
begin Writeln('Введите ', n, ' произвольных чисел через пробел'); Read(a[1]); min := a[1]; max := min; for i := 2 to n do begin Read(a[i]); if max < a[i] then max := a[i] else if min > a[i] then min := a[i] end; Writeln('Минимальное введенное: ', min, ', максимальное: ', max) end.
Тестовое решение: Введите 5 произвольных чисел через пробел 34 157 -84.54 14.843 -13.64 Минимальное введенное: -84.54, максимальное: 157
Язык СИ:
#include<stdio.h>
#include<math.h>
int main(){
long double x,y;
scanf("%Lf",&x);
if(x<=-10)y=x*x+25-x;
else if(-10<x && x<=10)y=3+fabsl(x);
else y=1/x;
printf("%Lg\n",y);
return 0;
}