СРОЧНО !!помогите пожалуйста 7 задачу решить

0 голосов
26 просмотров

СРОЧНО !!помогите пожалуйста 7 задачу решить


image

Информатика (118 баллов) | 26 просмотров
Дан 1 ответ
0 голосов

Var a:array[1..10] of integer;
i,max,min,s:integer;
begin
randomize;
for i:=1 to 10 do begin a[i]:=random(11); write(a[i],' '); end;
max:=a[1];  min:=a[1];
for i:=2 to 10 do begin
if a[i]> max then max:=a[i];
if a[i]< min then min:=a[i];<br>end;
s:=max+min;
writeln('Сумма максимального и минимального = ', s);
end.

(8.8k баллов)
0

Спасибо