Дан массив состоящий из 10 целых чисел, заданных случайным образом из промежутка [5 ... 25] найти минимальное и максимальное значения, их сумму

Question

Информатика

Капитон

19 июля, 23:30

Дан массив состоящий из 10 целых чисел, заданных случайным образом из промежутка [5 ... 25] найти минимальное и максимальное значения, их сумму

+4

Ответы (1)

Знаете ответ на вопрос?

Димуха · Answer 1

uses crt;

const N=10;

var a:array [1 ... N] of integer;

x, min, max, sum:integer;

begin

randomize;

for x:=1 to N do

begin

a[x]:=random (21) + 5;

writeln ('a[', x,']:', a[x]:3) ;

end;

min:=a[1];

max:=a[1];

for x:=1 to N do

begin

if a[x]
if a[x]>max then max:=a[x];

end;

sum:=min+max;

writeln;

write ('max:', max,'; min:', min,'; max+min=', sum) ;

end.