Используя цикл, написать программу обеспечивающую ввод n вещественных чисел и выводящую на экран числа с минимальной и м

@kira318 · Регистрация: 24.03.2014

Используя цикл, написать программу обеспечивающую ввод n вещественных чисел и выводящую на экран числа с минимальной и максимальной дробными числами.

@Arigato · 26.03.2014, 20:13

Pascal

var
  n,i: integer;
  a,max,min: real;
begin
  write('n = '); readln(n);
  for i:=1 to n do begin
    write('a[',i,'] = '); readln(a);
    if (i=1) or (frac(a)<frac(min)) then min:=a;
    if (i=1) or (frac(a)>frac(max)) then max:=a;
  end;
  writeln('Min Frac: ', min);
  writeln('Max Frac: ', max);
end.

@kira318 0 / 0 / 0 Регистрация: 24.03.2014 Сообщений: 12
		1
	Используя цикл, написать программу обеспечивающую ввод n вещественных чисел и выводящую на экран числа с минимальной и м 26.03.2014, 18:21. Просмотров 1382. Ответов 1 Метки нет (Все метки) Используя цикл, написать программу обеспечивающую ввод n вещественных чисел и выводящую на экран числа с минимальной и максимальной дробными числами. 0

Опции темы

Используя цикл, написать программу обеспечивающую ввод n вещественных чисел и выводящую на экран числа с минимальной и м

Решение