Дан массив А(100). Распечать наименьше значение попарных сумм. Решите, пожалуйста!!! (С использованием команда random или без неё).
Дан массив А(100). Распечать наименьше значение попарных сумм. Решите, пожалуйста!!!
(С использованием команда random или без неё).
Гость
Ответ(ы) на вопрос:
Гостьprogram n1;
const razmer = 2001;
var a:array [1..100] of integer;
b:array [0..100,0..100] of integer;
i,j,min:integer;
begin
writeln('Исходный массив: ');
for i:=1 to 100 do
begin
a[i]:=random(razmer)-razmer div 2;
write(a[i],' ');
b[i,0]:=a[i];
b[0,i]:=a[i];
end;
writeln;
min:=a[1]+a[2];
writeln('Все возможные значения попарных сумм:');
for i:=1 to 100 do
begin
for j:=1 to i-1 do
begin
b[i,j]:=b[0,j]+b[i,0];
write(b[i,j],' ');
if b[i,j]
Не нашли ответ?
Похожие вопросы