Питання No14 В полі імені табличного процесора відображається: А) Назва файлу Б) Формула в) Адреса активної клітинки Питання No 15 Виберіть правильно записані назви комірок. А) А1 Б) 4S В) 7R3 Г) C5 Д) D8 E) C5A Э) К15
Const n=10; var a,b:array [1..n] of integer; i,min1,min2,k:integer; begin randomize; For i:=1 to n do begin a[i]:=random(10); b[i]:=random(10); end; writeln (a); writeln (b); writeln; min1:=1000; min2:=1000; For i:=1 to n do begin if a[i]<min1 then min1:=a[i]; if b[i]<min2 then begin min2:=b[i]; k:=i end; end; if k<n then begin b[k+1]:=min1; writeln (a); writeln (b); end else writeln ('Минимальным является последний элемент'); end.
Const n=10; type ar=array[1..n] of integer; procedure p1(var x:ar); var i:integer; begin for i:=1 to n do x[i]:=random(51); end;
procedure p2(h:char;var x:ar); var i:integer; begin writeln('---',h,'---'); for i:=1 to n do write(x[i]:4); writeln; end;
procedure p3(var x:ar; var min,imin:integer); var i:integer; begin min:=x[1]; imin:=1; for i:=2 to n do if x[i]<min then begin min:=x[i]; imin:=i; end; end;
var a,b : ar; m1,m2,im1,im2: integer; begin Randomize; p1(a); p2('a',a); p3(a,m1,im1); writeln('m1=',m1,' im1=',im1); p1(b); p2('b',b); p3(b,m2,im2); writeln('m2=',m2,' im2=',im2); if im2<n then begin b[im2+1]:=m1; p2('b',b); end else writeln('Минимальный элемент последний'); end.
var
a,b:array [1..n] of integer;
i,min1,min2,k:integer;
begin
randomize;
For i:=1 to n do begin
a[i]:=random(10);
b[i]:=random(10);
end;
writeln (a);
writeln (b);
writeln;
min1:=1000;
min2:=1000;
For i:=1 to n do begin
if a[i]<min1 then min1:=a[i];
if b[i]<min2 then begin min2:=b[i]; k:=i end;
end;
if k<n
then begin
b[k+1]:=min1;
writeln (a);
writeln (b);
end
else writeln ('Минимальным является последний элемент');
end.
Примеры:
1)
[4,5,2,2,7,3,8,6,8,6]
[5,5,2,2,3,7,9,9,4,1]
Минимальным является последний элемент
2)
[0,1,7,3,1,1,0,1,6,1]
[8,3,8,0,7,2,1,4,0,9]
[0,1,7,3,1,1,0,1,6,1]
[8,3,8,0,0,2,1,4,0,9]
PS: Менять N можно в описании константы