ввести количество студентов группы, получающих стипендии. для каждого студента ввести сумму стипендии (суммы могут быть разные). найти и выдать общую сумму стипендии, получаемых всеми студентами группы. pascal abc
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
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