Опубликовано 08.03.2018 по предмету Информатика от Гость

Дан массив от 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.

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