Question

РЕШИТЬ ЗАДАЧУ НА ПАСКАЛЕ 9 КЛАСС ВСЕ РАСПИСАТЬ

Answer 1

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.

Answer 2

////////////////////////////////////////