Предмет: Информатика,
автор: лАп0чкА
СРОЧНО !!помогите пожалуйста 7 задачу решить
Приложения:
Ответы
Автор ответа:
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];
end;
s:=max+min;
writeln('Сумма максимального и минимального = ', s);
end.
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];
end;
s:=max+min;
writeln('Сумма максимального и минимального = ', s);
end.
Автор ответа:
0
Спасибо
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Литература,
автор: Аноним
Предмет: Математика,
автор: komisarikmax11
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: Мариша10