Писал в блокноте, по этому могу сделать ошибки (давно к тому же на pascal'е что-то делал)
Цитата:
const
max = 100;
var
arr: array[1..max] of real;
n: integer;
sum. max: real;
i: integer;
begin
write('Количество элементов: ');
readln(n);
write('Укажите значения: ');
; max:=a[1];
for i:=2 to n do
begin
if max<a[i] then
max:=a[i];
end;
sum := 0
for i := 1 to n do
sum := sum + arr[i] - max;
writeln('Сумма элементов: ', sum:10:2);
end.
|