<span>A[5]:=A[6]; - шестой элемент копируется в пятый и теперь </span><span>A[5]=8
A[6]:=A[5]; - пятый элемент копируется в шестой, но поскольку перед этим шестой копировался в пятый, то содержимое шестого не поменяется и остается равным 8.
Оба элемента будут равны 8 - вариант D
</span>
Const n=5;
var i,j:integer;
a:array[1..n,1..n] of integer;
Max:integer;
procedure p_max(input_mass:integer);
begin
if input_mass>Max then
Max:=input_mass;
end;
//Заполняем массив
procedure zapolnenue;
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=Random(1000);
end;
begin
Randomize;
zapolnenue;
writeln('Массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j],' ');
p_max(a[i,j]);
end;
writeln;
end;
writeln;
writeln('Max = ',Max);
end.
Форматирование текстового документа
Форматирование документа – это изменение его внешнего вида. WORD обеспечивает форматирование документов на пяти различных уровнях:
<span>на уровне символов (изменение гарнитуры, начертания, размера и цвета шрифта, межбуквенного интервала в слове, анимации и т. д. ) </span>
Program wz;var a,b:integer;x:real;beginwriteln('Введите a ');readln(a);writeln('Введите b');readln(b);x:=(a+b)/(a*b);writeln('x=',x);end.
Program n1;
var r: real;
begin
write('радиус шара (см): ');
readln(r);
writeln('площадь боковой поверхности: ',4*pi*r*r,' (кв. см)');
writeln('обьем шара: ',1/3*pi*r*r*r,' куб. см)');
end.
