Дано целое число n и набор из n целых чисел. вывести номера тех чисел в наборе, которые меньше своего левого соседа, и количество k таких чисел. delphi 7
Консольное приложение: const n=10; var a:array[1..n] of integer; i,k:integer; begin Randomize; writeln('Массив A:');
for i:=1 to n do begin a[i]:=random(51); write(a[i]:4) end; writeln; k:=0; writeln('номера чисел в наборе, которые меньше своего левого соседа:'); for i:=2 to n do if a[i]<a[i-1] then begin write(i,' '); k:=k+1; end; writeln; writeln('k = ',k); end.
Пример: Массив A: 31 37 20 22 37 11 45 19 3 14 номера чисел в наборе, которые меньше своего левого соседа: 3 6 8 9 k = 4
// PascalABC.NET 3.0, сборка 1073 const nn=30; mm=30; var a:array[1..mm,1..nn] of integer; m,n,i,j,imax,imin,jmax,jmin:integer; begin Writeln('Введите число строк и столбцов массива: '); Read(m,n); Randomize; Writeln('*** Исходный массив ***'); imin:=1; jmin:=1; imax:=1; jmax:=1; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4); if a[i,j] mod 2 = 0 then begin if a[i,j]<a[imin,jmin] then begin imin:=i; jmin:=j end else if a[i,j]>a[imax,jmax] then begin imax:=i; jmax:=j end end end; Writeln end; Writeln('*** Результирующий массив ***'); for i:=1 to m do begin for j:=1 to n do begin if (i=imin) and (j=jmin) or (i=imax) and (j=jmax) then a[i,j]:=2*a[i,j] else a[i,j]:=3*a[i,j]; Write(a[i,j]:4) end; Writeln end end.
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do begin
a[i]:=random(51);
write(a[i]:4)
end;
writeln;
k:=0;
writeln('номера чисел в наборе, которые меньше своего левого соседа:');
for i:=2 to n do
if a[i]<a[i-1] then begin write(i,' '); k:=k+1; end;
writeln;
writeln('k = ',k);
end.
Пример:
Массив A:
31 37 20 22 37 11 45 19 3 14
номера чисел в наборе, которые меньше своего левого соседа:
3 6 8 9
k = 4