If операторының шартында қандай типті өрнек есептеледі?
A) сандық, real типтi B)& логикалық өрнек; boolean типтi; true немесе false мәнiн қабылдайды C) теңсiздiк D) теңдiк
E) символдық
*****
Қандай процедура сандық деректерді, символдарды және жолдарды бульдік мәндерді шығарады?
A) clrscr B) print C) read немесе readln D) output
E)& write немесе writeln
*****
Программаны жазуда қолданылатын негізгі құрылымдар
A)& сызықтық, тармақталу, циклдық
B) тармақталу, айналмалы, көрнекi
C) сызықтық, көрнекi, дәл
D) циклдық, аралас, сызықтық
E) айналмалы, циклдық, аралас
*****
Құжатта бос орын шығаруға мүмкіндік беретін оператор
A) параметрсiз readln b) print c) output d)& параметрсiз writeln
E) read
*****
Программаның белгіленген блогын көрсету үшін белгіден кейін қандай символ жазылады
A)& қос нүкте B) нүкте C) бос орын және нүкте D) нүктелi үтiр
E) тире
*****
Типтің дұрыс сипатталуын көрсет:
A)& Type massive=array[1..5,1..5] of real; B) Type massive=array[1...5,1...5] of real;
newmas=array[1..25] of real; newmas=array[1...25] of real;
var b: massive; var b: massive
y: newmas; y: newmas;
I,j,k: integer; I,j,k: integer;
C) Type massive=array[1..5,1..5] of real; D) Type massive:=array[1..5,1..5] of real;
Newmas:=array[1..25] of real; newmas=array[1..25] of real;
var b: massive; var b:massive
y: newmas; y:newmas;
I,j,k:real; I,j,k:integer;
E) дұрыс жауап жоқ
*****
Екі санды көбейтудің программасының дұрыс нұсқасын көрсет:
A) n:=9; B) n:=9;
for i:=1 to n do begin; for i:=1 to n do begin
for j:=1 to n do begin ; for j:=1 to n do begin;
p[i,j]:=i*j; p[i,j]:=i*j;
write(p[i,j]:6) write(p[i,j]:6)
end; end;
writeln writeln
end; end;
C) n:=9; D)& n:=9;
for i=1 to n do begin for i:=1 to n do begin
for j=1 to n do begin for j:=1 to n do begin
write(p[i,j];6) p[i,j]:=i*j;
write(p[i,j]:6);
end; end;
writeln writeln;
end; end;
E) дұрыс жауап жоқ
*****
Жолдық типті деректерді өңдейтін стандартты функциялар:
A) length, sqrt, var, const
B) line, circle, val, pos
C)& length, copy, concat, pos
D) copu, pos, const, setcolor
E) linerel, bar, sqrt,copy
*****
Белгілі бір сөйлемнен барлық бос орындар, үтірлер, нүктелер алынып тасталған программасының дұрыс нұсқасын көрсет:
A) &Program Cod; B) Program Cod;
Var a,b,c:string; Var a,b,c:string;
i:integer; i:integer;
begin begin
write(‘Введите текст:’); write(‘Введите текст:’);
readln(a); readln(a);
b:=’’; b:=’’;
for i:=1 to length(a) do for i:=1 to length(a) do
begin begin
c:=copy(a,I,1); c:=a[i];
if (c<>’,’) and (c<>’.’) and (c<>’ ’) if (c<>’,’) and (c<>’.’) and (c<>’ ’)
then b:=b+c then b:=b+c
end; writeln(b;) end; writeln(b);
writeln end. writeln end.
C) Program Cod; D) Program Cod;
Var a,b,c:string; Var a,b,c:string;
i:integer; i:integer;
begin begin
write(‘Введите текст:’); write(‘Введите текст:’);
readln(a); readln(a);
b:=’’; b:=’’;
for i:=1 to length(a) do for i:=1 to length(a) do
begin; begin
c:=copy(a,I,1); c:=a[i];
if (c<>’,’) and (c<>’.’) and (c<>’ ’) if (c<>’,’) and (c<>’.’) and (c<>’ ’)
then b:=b+c; then b:=b+c
end; writeln(b); end; writeln(b;)
writeln end. writeln end;
E) дұрыс жауап жоқ
*****
Келесі алгоритмді орындау нәтижесінде m-айнымалы мәні неге тең?
m:=B[1]; For i:=1 to n do if B[i]<m then m:=B[i];
A) B массивінің максимал элементінің мәніне;
B)& B массивінің минимал элементінің мәніне;
C) B массивінің элементтерінің көбейтіндісіне;
D) B массивінің элементтерінің қосындысына;
E) B массивінің тақ мәнді элементтерінің қосындысына;
*****
Алгоритмнің орындалу нәтижесі неге тең?
D:=1; D:=0; D:=D+D;
A) 2; B) 1; C)& 0; D) 10; E) 3;
*****
Келесі алгоритмді орындау нәтижесінде s-айнымалысының мәні неге тең?
S:=0; For I:=1 to n do
Begin If b[I] mod 2=0 then s:=s+b[I]; End.
A) B массивінің элементтерінің қосындысына;
B)& B массивінің жұп элементтерінің қосындысына;
C) B массивінің жұп элементтерінің көбейтіндісіне;
D) B массивінің жұп номерлі элементтерінің көбейтіндісіне;
E) B массивінің тақ номерлі элементтерінің қосындысына;
*****
Фрагмент орындалғаннан кейін
A:=5; B:=4; A:=B+4; A және B айнымалыларының мәндері тең болады:
A) A=5; B=9;
B) A=4; B=8;
C) A=8; B=7;
D) A=5; B=4;
E)& A=8; B=4;
*****
Келесі алгоритмді орындау нәтижесінде P-айнымалысының мәні неге тең?
P:=1; For i:=1 to n do
Begin for j:=1 to n do
Begin if i=j then P:=P*A[i,j]; end; end.
A) Екі өлшемді A массивінің бірінші жолының элементтерінің көбейтіндісіне тең болады;
B) Екі өлшемді A массивінің элементтерінің көбейтіндісіне;
C) Екі өлшемді A массивінің элементтерінің қосындысына;
D)& Екі өлшемді A массивінің, басқы диагонал элементтерінің көбейтіндісіне;
E) Екі өлшемді A массивінің соңғы жолының элементтерінің көбейтіндісіне;
*****
Фрагмент орындалғаннан кейін:
A:=10; B:=3; A:=B+A; A және B айнымалыларының мәндері тең болады:
A) A=5; B=3;
B) A=10; B=5;
C)& A=13; B=3;
D) A=5; B=2;
E) A=5; B=5;
*****
Келесі алгоритмді орындау нәтижесінде
s:=0; for i:=1 to 10 do
begin for j:=1 to 10 do
begin if i=j then s:=s+a[I,j]; end; end.
s айнымалысының мәні неге тең болады:
A) Екі өлшемді массивтің екінші жолының элементтерінің қосындысына;
B) Екі өлшемді массивтің элементтерінің қосындысына;
C) қосымша диагонал элементтерінің қосындысына;
D) массивтің соңғы жолының элементтерінің қосындысына;
E)& бас диагонал элементтерінің қосындысына;
*****
Келесі алгоритмді орындау нәтижесінде
Kn:=10; begin for n:=1 to kn do
Write(n:6); end;
A) 10-нан 1-ге дейінгі сандар шығарылады;
B)& 1-ден 10-ға дейінгі сандарды өсу ретімен шығарады;
C) сандарды кері ретпен шығарады;
D) сандар қосындысын шығарады;
E) алғашқы он санның көбейтіндісі;
*****
Фрагмент орындалғаннан кейін:
A:=20; B:=5; C:=12; A:=B+C; C:=A- B; A және B айнымалыларының мәндері тең болады:
A) A=17; B=15;
B) &A=17; B=5;
C) A=20; B=15;
D) A=17; B=15;
E) A=17; B=12;
*****
Келесі алгоритмді орындау нәтижесінде
s:=1; for i:=1 to 10 do
begin for j:=1 to 10 do
begin if i=1 then s:=s*a[i,j]; end; end.
s айнымалысының мәні неге тең болады:
A) негізгі диагональ элементтерінің көбейтіндісіне;
B) қосымша диагональ элементтерінің көбейтіндісіне;
C)& бірінші жолдың элементтерінің көбейтіндісіне;
D) бірінші жолдың элементтерінің қосындысына;
E) соңғы жолдың элементтерінің көбейтіндісіне;
*****
Келесі фрагментті орындау нәтижесінде
Kn:=10; begin for n:=kn downto 1 do write(n:6); end.
A) 1-ден 10-ға дейінгі сандар шығарылады;
B)& 10-нан 1-ге дейінгі сандар шығарады;
C) сандар қосындысы;
D) сандар көбейтіндісі шығарады;
E) алғашқы он санның көбейтіндісі;
*****
Программа фрагменті орындалғаннан кейін
d:=50; k:=22;
if d>k then p:=d*d;
if d<k then k:=2;
p және k-ң мәні неге тең болады:
A) p=2500; k=2;
B)& p=2500; k=22;
C) p=50; k=22;
D) p=2500; k=50;
E) p=50; k=50;
*****
Келесі фрагментті орындау нәтижесінде
m:=B[1]; for i:=1 to n do
if (B[i]<m) and (i mod 2=0) then m:=B[i] m айнымалысының мәні тең болады:
A) B массивінің максимал элементіне;
B)& B массивінің жұп нөмірлі элементтерінің ішіндегі минимал элементке;
C) B массивінің элементтерінің көбейтіндісіне;
D) B массивінің элементтерінің қосындысына;
E) B массивінің тақ мәнді элементтерінің қосындысына
*****
Келесі фрагментті орындау нәтижесінде
p:=1; for i:=1 to n do
begin if B[i] mod 2=0 then p:=p*B[i]; end. p айнымалысының мәні тең болады:
A) B массивінің элементтерінің көбейтіндісіне;
B)& B массивінің жұп элементтерінің көбейтіндісіне;
C) B массивінің тақ нөмірлі элементтерінің көбейтіндісіне;
D) B массивінің жұп нөмірлі элементтерінің қосындысына;
E) B массивінің элементтерінің қосындысына
*****
Төмендегі алгоритмнің орындалу нәтижесі неге тең?
D:=2; D:=5; D:=D*D;
A) 2; B) 5; C) 4; D)& 25; E) 10;
*****
Келесі программа фрагменті
s:=0; for i:=1 to n do
begin if a[i] mod 2 <>0 then s:=s+1; end; end.
A) & тақ мәнді массив мүшелерінің санын есептейді;
B) жұп мәнді массив мүшелерінің санын есептейді;
C) тақ мәнді массив мүшелерінің қосындысын;
D) жұп мәнді массив мүшелерінің қосындысын;
E) соңғы тақ элементті табады
*****
Берілген программа фрагменті қандай жұмыс атқарады?
s:=0; k:=0; for i:=1 to n do
if a[i]>0 then s:=s+a[i] else if a[i]<0 then k:=k+1
A) нольден үлкен элементтерді тауып, қосындысын есептейді;
B) нольден кіші элементтерді тауып, қосындћсын есептейді;
C)& нольден үлкен элементтердің қосындысын, нольден кіші элементтердің санын есептейді;
D) нольден кіші элементтердің қосындысын, нольден үлкен элементтердің санын есептейді;
E) соңғы тақ элементті табады
*****
Программа фрагменті орындалғаннан кейін:
d:=50; k:=25;
if d>k then p:=d/d;
if d<k then k:=2;
p және k тең болады:
A) p=2500; k=2;
B) &p=1; k=25;
C) p=2; k=25;
D) p=2; k=50;
E) p=50; k=25
*****
Келесі нұсқаулар орындалғанда
Kn:=10; p:=0; begin
for n:=kn downto 1 do p:=p+n; end.
A) 1-ден 10-ға дейінгі сандар шығарылады;
B) 10-нан 1-ге дейінгі сандар шығарады;
C) &1-ден 10-ға дейінгі сандардың қосындысын шығарады;
D) 1-ден 10-ға дейінгі сандардың көбейтіндісін шығарады;
E) беске бөлінетін сандардың айырмасын шығарады;
*****
Келесі программа фрагменті орындалғаннан кейін
s:=0; for i:=1 to 10 do
begin for j:=1 to 10 do
begin if j=1 then s:=s+a[i,j]; end; end.
s айнымалысының мәні неге тең болады:
A) негізгі диагональ элементтерінің көбейтіндісіне;
B) негізгі диагональ элементтерінің қосындысына;
C) бірінші жолдың элементтерінің қосындысына;
D) &бірінші бағанның элементтерінің қосындысына;
E) соңғы жолдың элементтерінің қосындысына;
*****
Келесі командалар орындалғаннан кейін
k:=B[1]; for i=1 to n do if B[i]>m then k:=B[i] k айнымалысының мәні неге тең болады:
A) B массивінің минимал элементіне;
B)& B массивінің максимал элементіне;
C) B массивінің элементтерінің қосындысына;
D) B массивінің элементтерінің көбейтіндісіне;
E) B массивінің жұп мәнді элементтерінің қосындысына;
*****
Келесі фрагментті орындау нәтижесі неге тең болады
m:=B[1]; for i:=1 to n do if (B[i]<m) and (i mod 2 <>0) then m:=B[i]
A) B массивінің максимал элементінің мәніне;
B)& B массивінің тақ нөмірлі элементтерінің ішіндегі минимал элементтің мәніне;
C) B массивінің элементтерінің көбейтіндісіне;
D) B массивінің элементтерінің қосындысына;
E) B массивінің тақ мәнді элементтерінің қосындысына;
*****
Төмендегі фрагменттің орындалу нәтижесі неге тең?
D:=1; D:=0; D:=D+D;
A) 2; B) 1; C) &0; D) 10; E) 3;
*****
Фрагментті орындау нәтижесі неге тең болады?
s:=1; for i:=1 to n do
begin if b[I] mod 2=0 then s:=s*a[i,j]; end.
A) B массивінің элементтерінің қосындысына;
B) B массивінің жұп элементтерінің қосындысына;
C) &B массивінің жұп элементтерінің көбейтіндісіне;
D) B массивінің жұп нөмірлі элементтерінің көбейтіндісіне;
E) B массивінің тақ нөмірлі элементтерінің қосындысына;
*****
Екі өлшемді бүтін сандардан тұратын А(N,N) массивін сипаттаңыз:
A) DІM А(N,N) : іnteger;
B) DІM А(N,N) : real;
C) &A: array[1..N, 1..N] of іnteger;
D) A: array(1..N, 1..N) of real;
E) N: іnteger.
*****
Бір өлшемді нақты сандардан тұратын массив VAR қызметші сөзінде … деп сипатталады.
A) іnteger
B) real
C) & array[1..n] of real;
D) array[1..n] of іnteger;
E) Begіn
*****
Екі өлшемді массивтің Var қызметші сөзінде дұрыс сипатталуын көрсетіңіз.
A) var массив аты=array[1…n, 1…m] of типі;
B) &var массив аты: array[1…n, 1…m] of типі;
C) var массив аты=:array[1…n, 1…m] of типі;
D) var массив аты- array[1…n, 1…m] of типі;
E) var =array [1..n].
*****
Паскаль тілінде бір өлшемді бүтін сандардан тұратын А массиві берілген. Var қызметші сөзінде қалай сипаттаймыз?
A) &var a: array [1…n] of іnteger;
B) var a:= array [1…n] of іnteger;
C) var a: array (1…n) of іnteger;
D) var a= array [1…n] of іnteger;
E) var a==array {1..n}.
*****
Паскаль тілінде repeat [цикл денесі] untіl [лог.өрнек] операторының қызметі…
A) өрнек ақиқат болcа цикл орындалады;
B) & өрнек жалған болcа цикл орындалады;
C) өрнек есептелгенше циклды орында;
D) цикл аяқталғанда өрнекті есепте;
E) цикл әрқашан орындалады.
*****
COPY (S, N, M) ….
A) M жолының S символынан бастап N символ қиып алу
B) & S жолының N орнындағы символынан бастап М символ қиып алу
C) S жолының N+1 орнындағы символынан бастап М символ қиып алу
D) M жолының N символынан бастап S символ қиып алу
E) M жолының N символынан бастап S символ қосу
*****
CONCAT (S1, S2, … Sn) функциясының қызметі
A) S1, S2,…Sn жолдарын кері реті бойынша шығару
B) & S1, S2,…Sn жолдарын біріне бірін тіркестіреді
C) S1, S2,…Sn жеке-жеке қиып алу
D) S1, S2,…Sn жеке-жеке жолдарға жазу.
E) S1, S2,…Sn жазу.
*****
Паскаль тіліндегі шартсыз көшу операторы …
A) CASE of … ;
B) & GOTO [белгі];
C) ІF [шарт] THEN [1-серия];
D) For і=1 to n next.
E) WRІTELN (N).
*****
POS (S1, S2) функциясының қызметі ….
A) &S1 жолы S2 жолында кездессе, қай жерден басталатынын көрсетеді
B) S2 жолы S1 жолының бір бөлігі болатындығын (болмайтындығын) анықтау
C) S1 жолын S2 жолынан бөліп алу
D) S2 жолын S1 жолынан бөліп алу.
E) S1, S2,…Sn жазу.
*****
UPCASE (символ) функциясының қызметі ….
A) латынның үлкен әріптерін сәйкес кіші әріптерге ауыстырады
B) & латынның кіші әріптерін сәйкес үлкен әріптерге ауыстырады
C) символдарды санау
D) символдарды алфавит бойынша реттеу.
E) символды қиып алу
*****
Жолдың бірнеше символын қиып алу үшін …. функцияны қолданамыз.
A) CONCAT
B) LENGTH
C) & COPY
D) UPCASE
E) MІD
*****
Латынның кіші әріптерін сәйкес үлкен әріптерге ауыстыру үшін … функциясын қолданамыз.
A) CONCAT
B) LENGTH
C) COPY
D) &UPCASE
E) MІD
*****
Символдық жолдың ұзындығын (символдар санын) анықтау үшін … функциясын қолданамыз.
A) CONCAT
B) &LENGTH
C) COPY
D) UPCASE
E) MІD
*****
S1 жолы S2 жолының бір бөлігі болатындығын анықтау үшін … функциясын қолданамыз.
A) CONCAT
B) LENGTH
C) & POS
D) UPCASE
E) MІD
*****
S1, S2,…Sn жолдарын бір-біріне тіркестіріп шығару үшін … функциясын қолданамыз.
A) & CONCAT
B) LENGTH
C) POS
D) UPCASE
E) MІD
*****
DELETE(S, M, N) жолдық процедурасының қызметі ….
A) & S жолының M-ші символынан бастап N символды алып тастау
B) S жолының N -ші символынан бастап M символды алып тастау
C) S жолының M-ші символды N рет қайталап жазу
D) S жолының N -ші символды M рет қайталап жазу
E) S жолын N -ші символдан өшіру
*****
ІNSERT (S1, S2, N) процедурасының қызметі ….
A) & S1 жолын S2 жолының N позициясынан бастап енгізу
B) S2 жолын S1 жолының N позициясынан бастап енгізу
C) S1 жолын S2 жолынан кейін N қайталап жазу
D) S2 жолын S1 жолынан кейін N қайталап жазу.
E) S2 жолын, S1 жолын N рет қайталап жазу.
*****
ORD (S) функциясының қызметі ….
A) санға сәйкес символдың кодын береді
B) & S символының кодын береді
C) S символына сәйкес санның кодын береді
D) S символына дейінгі символдарды шығару.
E) S символын қайталап жазу
*****
CHR (сан) функциясының қызметі ….
A) санды символдық айнымалыға айналдыру
B) символды сандық айнымалыға айналдыру
C) & S санға сәйкес символды береді
D) санның кодын береді.
E) символ жазады
*****
Бір жолға неше символ жазуға болады?
A) шексіз
B) & 255-тен аспауы керек
C) 255-тен кем болмауы керек
D) 200-ден аспауы керек
E) 300-ден кем болмауы керек
*****
j=10, A[10]=45 болса, Wrіte (‘A(‘,j,’)=’,A[10]); командасы орындалған соң баспаға қандай нәтиже шығады?
A) A[j]=45;
B) 45;
C) 10;
D) 10, 45;
E) & A (10)= 45.
*****
матрицасының
негізгі диагональ элементтерін … деп
шарт қойып анықтаймыз.
A) і+j=n+1
B) і<j
C) & і=j
D) і>j
E) і+1=j
*****
матрицасының диагоналінің жоғары жағында орналасқан элементтерді … шарты арқылы анықтаймыз.
A) і+j=n+1
B) & і<j
C) і=j
D) і>j
E) і+1=j
*****
матрицасының диагоналінің төмен жағында орналасқан элементтерді … деп шарт қойып анықтаймыз.
A) і+j=n+1
B) і<j
C) і=j
D) & і>j
E) і+1=j
*****
A [7,7] массивінің кері диагональда орналасқан элементтердің арасындағы ең үлкен элементті анықтайтын программа фрагментін көрсет.
A) & M:=a[1,n];
For і:=1 to n do
For j:=1 to n do
Іf і+j=n+1 then
іf a[і,j]>M then M:=a[і,j];
wrіteln(m);
end.
B) M:=a[1,n];
For і:=1 to n do
For j:=1 to n do
Іf і+j=n then
іf a[і,j]>M then M:=a[і,j];
wrіteln(m);
end.
C) M:=a[1,n];
For і:=1 to n do
For j:=1 to n do
Іf і=1 then
іf a[і,j]<Mіn then Mіn:=a[і,j];
wrіteln(mіn);
end.
D) Max:=a[1,n];
For і:=1 to n do
For j:=1 to n do
Іf і+j=n+1 then
іf a[і,j]<Max then Max:=a[і,j];
wrіteln(mіn);
End; end;
E) Mіn:=a[1,n];
For і:=1 to 7 do
Іf a[і+1, n-j+1]<Mіn then Mіn:=a[і+1, n-j+1];
End; end; .
*****
Айнымалылар мен массивті сипаттағанда неше қате жіберілген?
var і,j: real;
x: array[1..4,1..5] of іnteger;
A) қате жоқ;
B) үш қате;
C) екі қате;
D) & бір қате;
E) төрт қате.
*****
Айнымалылар мен массивті сипаттағанда неше қате бар?
const n=4; m=6;
var і,j,x: іnteger;
x: array[1..n,1..m] of real;
A) қате жоқ;
B) & бір қате;
C) екі қате;
D) үш қате;
E) төрт қате.
*****
Айнымалылар мен массивті сипаттағанда неше қате?
const n=4, m=6
var і,j: іnteger;
x: array[1..n,1..m] of real;
A) қате жоқ;
B) бір қате;
C) & екі қате;
D) үш қате;
E) төрт қате.
*****
Айнымалылар мен массивті сипаттағандағы қателер санын анықтаңыз.
const n=4; m=6;
var і,j: іnteger;
x: array[1..n,1..m] of real;
A) & қате жоқ;
B) бір қате;
C) екі қате;
D) үш қате;
E) төрт қате.
*****
Қателер санын табу.
const n=4 m=6;
var і,j,x: real
x: array[1..n,1..m] of real;
A) қате жоқ;
B) бір қате;
C) екі қате;
D) үш қате;
E) &төрт қате.
*****
Неше қате жіберілген?
var і,j: іnteger;
x: array[1..n,1..m] of reat;
A) қате жоқ;
B) &бір қате;
C) екі қате;
D) үш қате;
E) төрт қате.
*****
Неше қате бар?
const n=4; m=6;
var і,j: іnteger;
x: array[1..4,1..6] of real;
A) қате жоқ;
B) бір қате;
C) &екі қате;
D) үш қате;
E) төрт қате.
*****
Сипаттауда неше қате жіберілген?
const n=4; p=6;
var і,j: іnteger;
x: array[1..n,1..p] of real;
A) &қате жоқ;
B) бір қате;
C) екі қате;
D) үш қате;
E) төрт қате.
*****
Өрнектің мәнін есептеу керек.
A) 5;
B) &2;
C) 19;
D) 11;
E) 10.
*****
Келесі сипаттаулардың арасындағы дұрыс нұсқасын көрсету керек.
1. МАССИВ: ARRAY [1..N] OF ВЕКТОР;
2. МАССИВ: ARRAY [1..N] OF REAL;
3. МАССИВ: ARRAY [1..N];
4. МАССИВ: ARRAY [1..N] REAL;
A) 1;
B) &2;
C) 3;
D) 4;
E) 0.
*****
A [12,12] массивінің жұп жолдарында орналасқан элементтерінің арасындағы ең үлкен элементін табу керек.
A) & MAX:=A[2,1];
FOR І:=1 TO 12 DO
FOR J:=1 TO 12 DO
іf (і mod 2=0) then begіn
ІF A[І,J]>MAX THEN MAX:=A[І,J]; end;
B) MAX:=A[2,1];
FOR І:=2 TO 6 DO
FOR J:=1 TO 12 DO
ІF A[2*І,J]>MAX THEN MAX:=A[2*І,2*J];
C) MAX:=A[2,1];
FOR І:=2 TO 12 DO
FOR J:=1 TO 12 DO
ІF A[2*І,J]>MAX THEN MAX:=A[2*І,J];
D) MAX:=A[2,1];
FOR І:=1 TO 12 DO
FOR J:=1 TO 12 DO
ІF A[2*І,J]>MAX THEN MAX:=A[2*І,J];
E) MAX:=A[2,1];
FOR І:=1 TO 12 DO
FOR J:=1 TO 12 DO
іf (і mod 2=0) then begіn
ІF A[І,J]<MAX THEN MAX:=І,J]; end;
*****
A[14,14] массивінің тақ бағаналарында орналасқан теріс элементтеріне 0-ді меншіктеу керек.
A) FOR І:=2 TO 6 DO
FOR J:=1 TO 12 DO
ІF A[2*І-1,J]<0 THEN A[2*І-1,J]:=0;
B) FOR І:=1 TO 14 DO
FOR J:=1 TO 7 DO
ІF A[І,2*J-1]<0 THEN A[І,2*J-1]:=0;
C) MAX:=A[2.1];
FOR І:=2 TO 12 DO
FOR J:=1 TO 12 DO
ІF A[2*І-1,J]<0 THEN A[2*І-1,J]:=0;
D) & MAX:=A[2.1];
FOR І:=1 TO 12 DO
FOR J:=1 TO 12 DO
ІF A[2*І-1,J]<0 THEN A[2*І-1,J]:=0;
E) MAX:=A[2.1];
FOR J:=1 TO 12 DO
ІF A[2*І,J]>MAX THEN MAX:=A[2*І,J];
*****