11.08.2016, 07:51 | #1 (permalink) |
Новичок
Регистрация: 21.01.2014
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить. Паскаль
2. В данном двумерном массиве А[1...n,1...n]с целыми коэффициентами, где n<=20, для каждого столбца найти минимальное и максимальное значение элемента в этом столбце, напечатать эти элементы и их индексы. 3. В данной последовательности чисел найти минимальное значение среди положительных элементов и все номера членов последовательности, равных ему. |
11.08.2016, 07:51 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Ваша тема очень схожа с некоторыми топиками на форуме, которые вы скорее всего не просмотрели Помогите решить. Паскаль Помогите решить. Паскаль Помогите решить. Паскаль Помогите решить, Паскаль Помогите решить. Паскаль |
11.08.2016, 09:21 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const N=20; Var A,B,C:Array[1..N] of Integer; P,Q,i,j:Byte; D:Integer; Begin Randomize; P:=0; Q:=0; Writeln('Initial array:'); for i:=1 to N do begin A[i]:=-50+Random(100); Write(A[i]:4); if (A[i]<0) and ((Abs(A[i]) mod 2)=1) then begin Inc(Q); C[Q]:=A[i]; end else begin Inc(P); B[P]:=A[i]; end; end; Writeln; Writeln; for i:=1 to Q-1 do for j:=1 to Q-i do if C[j]>C[j+1] then begin D:=C[j]; C[j]:=C[j+1]; C[j+1]:=D; end; for i:=1 to P do A[i]:=B[i]; for i:=1 to Q do A[i+P]:=C[i]; Writeln('New array:'); for i:=1 to N do Write(A[i]:4); Readln; End. |
|
11.08.2016, 15:57 | #3 (permalink) | |
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
Цитата:
Код:
uses Crt; const CSize=20; type Tmatr=array[1..CSize,1..CSize] of integer; procedure Search(aa:Tmatr; aj,an:integer); var min,max,minx,miny,maxx,maxy,t:integer; begin min:=MaxInt; max:=-MaxInt; minx:=0; miny:=0; maxx:=0; maxy:=0; for t:=1 to an do begin if aa[t,aj]<min then begin min:=aa[t,aj]; minx:=t; miny:=aj; end; if aa[t,aj]>max then begin max:=aa[t,aj]; maxx:=t; maxy:=aj; end; end; Writeln('Stolbec: ',aj:2); Writeln(' min = ',min:2,'[',minx,' , ',miny,']'); Writeln(' max = ',max:2,'[',maxx,' , ',maxy,']'); end; var a:Tmatr; i,j,n:integer; begin ClrScr; repeat Write('n<=20 = '); Readln(n); until n<=20; Randomize; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=Random(100); Write(a[i,j]:4); end; Writeln; end; Writeln; for j:=1 to n do Search(a,j,n); ReadKey; end. |
|
11.08.2016, 16:22 | #4 (permalink) | |
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
Цитата:
Код:
uses Crt; type Tmass=array[1..100] of integer; var i,n,min:integer; a:Tmass; begin ClrScr; repeat Write('Kollicestvo cisel <=100 = '); Readln(n); until n<=100; Randomize; min:=MaxInt; for i:=1 to n do begin a[i]:=Random(15)-5; Write(a[i]:4); if a[i]>0 then if a[i]<min then min:=a[i]; end; Writeln; Writeln; Writeln('Min sredi polozhitelnih = ',min); Writeln('Elementi ravnie min imejut nomera:'); for i:=1 to n do if a[i]=min then Write(i:4); Writeln; ReadKey; end. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|