program raf105;
var v:array[1..6] of real;
i,j,kolvo,n:integer;
abc:real;
begin
writeln('Введите 6 значений по очереди: ');
for i:=1 to 6 do
read(v[i]);6
for j:=1 to 6 do
if (v[j]-v[i]) > 0
then kolvo:=kolvo+1;
end;
if kolvo=5
then n:=j
else kolvo:=0;
writeln();
writeln('Ввод:');
write(' ',v[i]);
abc:= v[n];
v[n]:= v[1];
v[1]:= abc;
writeln('Вывод:');
end.
Написано на языке PascalABC.NET
//Код Pascal
const
N = 7;
var
Mass: array[1..N] of integer;
i, k: integer;
Begin
WriteLn('Введите для продолжения:');
WriteLn('1 - Автоматическая генерация массива');
WriteLn('2 - Ручной ввод');
ReadLn(k);
if (k = 1) then
Write('Исходный массив:');
For i:= 1 to N do
Mass[i] := random(2*N) - N;
Write(' ', Mass[i]);
End;
End
else
Read(Mass[i]);
WriteLn();
WriteLn('Введите номер элемента');
if ((k < 1) or (k > N)) then
WriteLn('Ошибка, в массиве нет элемента с таким номером.')
Write(k, '-ый элемент - ');
if (Mass[i] mod 2 = 0) then
Write('чётный')
Write('нечётный');
End.
program raf105;
var v:array[1..6] of real;
i,j,kolvo,n:integer;
abc:real;
begin
writeln('Введите 6 значений по очереди: ');
for i:=1 to 6 do
read(v[i]);6
for j:=1 to 6 do
begin
for i:=1 to 6 do
begin
if (v[j]-v[i]) > 0
then kolvo:=kolvo+1;
end;
if kolvo=5
then n:=j
else kolvo:=0;
end;
writeln();
writeln('Ввод:');
for i:=1 to 6 do
write(' ',v[i]);
abc:= v[n];
v[n]:= v[1];
v[1]:= abc;
writeln();
writeln('Вывод:');
for i:=1 to 6 do
write(' ',v[i]);
end.
Написано на языке PascalABC.NET
//Код Pascal
const
N = 7;
var
Mass: array[1..N] of integer;
i, k: integer;
Begin
WriteLn('Введите для продолжения:');
WriteLn('1 - Автоматическая генерация массива');
WriteLn('2 - Ручной ввод');
ReadLn(k);
if (k = 1) then
Begin
Write('Исходный массив:');
For i:= 1 to N do
Begin
Mass[i] := random(2*N) - N;
Write(' ', Mass[i]);
End;
End
else
For i:= 1 to N do
Read(Mass[i]);
WriteLn();
WriteLn('Введите номер элемента');
ReadLn(k);
if ((k < 1) or (k > N)) then
WriteLn('Ошибка, в массиве нет элемента с таким номером.')
else
Begin
Write(k, '-ый элемент - ');
if (Mass[i] mod 2 = 0) then
Write('чётный')
else
Write('нечётный');
End;
End.