Дан массив от 1 до 10 посчитать сумму max и min

Точно не понял, какую сумму, но если тебе нужно найти самый большой элемент массива или самый маленький, то программа будет выглядеть примерно так:

Program abc;
var i:integer;
    k:real;
    b:array [1..10] of real;
begin
for i:=1 to 10 do read(b[i]);
for i:=1 to 10 do if b[i] > k then k:=b[i];
writeln('max: ', k);
k:=b[1];
for i:=1 to 10 do if b[i] < k then k:=b[i];
writeln('min: ', k);
end.

Оцени ответ
Не нашёл ответ?

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.

Найти другие ответы

Загрузить картинку
© Задачки.net