Const n=11;
var a,c,b:array [1..n] of integer;
i,j,k:integer;
begin
randomize;
writeln ('Исходный массив:');
for i:=1 to n do begin
a[i]:=random (13)-6;
c[i]:=random (13)-6;
end;
for i:=1 to n do
write (a[i]:3);
writeln;
for i:=1 to n do
write (c[i]:3);
for i:=1 to n do
if a[i]>c[i] then b[i]:=c[i]
else if a[i]=b[i] then b[i]:=a[i]
else b[i]:=a[i];
writeln;
writeln ('полученный массив');
for i:=1 to n do
write (b[i]:3);
readln;
end.
Во вложении - файл с рабочей книгой MS Excel-2003. Не забудьте разрешить выполнение макросов и проекты с отсутствующей цифровой подписью.
Если все же захочется попробовать решить ребус КОТ+КОТ=ТОК, замените правую часть оператора присваивания для n1 выражением из правой части оператора присваивания для n2.
Да это правда
:))))
Не за что помочь