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.
Поделитесь своими знаниями, ответьте на вопрос:
Дан двумерный массив. заменить значения всех элементов второй строки массива на число 5.
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
for var j:=0 to m-1 do a[1,j]:=5; a.Println(4)
end.
Пример
Количество строк в массиве: 6
Количество столбцов в массиве: 8
*** Исходный массив [6,8] ***
9 -3 -27 -90 43 -54 0 -49
-2 91 -12 -10 -21 19 52 5
26 41 79 98 91 -50 87 -50
-23 -24 -63 17 -59 75 -43 -62
-27 -13 93 2 -58 -43 -22 -90
5 94 90 -26 81 46 5 -12
9 -3 -27 -90 43 -54 0 -49
5 5 5 5 5 5 5 5
26 41 79 98 91 -50 87 -50
-23 -24 -63 17 -59 75 -43 -62
-27 -13 93 2 -58 -43 -22 -90
5 94 90 -26 81 46 5 -12