Вот так?)).................
Ответ:
program Change;
var
n, i, j, t: Integer;
A: array of Integer;
begin
Write ('Введите четное число N: ');
ReadLn (n);
if n mod 2 = 0 then begin
SetLength (A, n);
Randomize;
for i := Low (A) to High (A) do begin
A [i] := Random (100);
Write (A [i] :3, ' ');
end;
i := 0;
while i < n do begin
t := A [i];
A [i] := A [i + 1];
A [i + 1] := t;
i := i + 2;
end;
WriteLn;
for i := Low (A) to High (A) do begin
Write (A [i] :3, ' ');
end;
end else
WriteLn ('Введено не четное число.');
ReadLn;
end.
Для начала стоит разобраться в том, насколько программирование востребовано в современном мире. Программист - это человек, который не только хорошо разбирается в компьютерах, но и создает новые программы, а также сайты. Фактически это сотрудник, занимающийся IT-технологиями. Программирование - перспективное направление. Получив диплом по соответствующей специальности, можно построить хорошую карьеру. Заработок программиста в среднем составляет 100-150 тысяч рублей. Именно поэтому многие задумываются над поступлением. -
В список подобных вступительных испытаний входит всего 2 предмета. А именно: русский язык; математика. -
прочее-<span>физика; информатика; иностранный язык
</span><span />
СУММ=<u>D2+D3+D4</u>=16;
СРЗНАЧ=(D1+<u>D2+D3+D4</u>)/4=5; (D1+16)/4=5; D1=20-16;<em> D1=4</em>
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.