Hozirgi kunda biror bir sohada ishni boshlash va uni boshqarishni kompyutersiz tasavvur qilish qiyin. XXI asr savodxon kishisi bo’lishi uchun kompyuter savodxon bo’lish, axborot texnologiyalarini puxta egallamoq lozim

alg Modifikasiya(but N, haq jad A[1:N, 1:N])
boshl but i, j, lit Flag
kiritish N
sb i uchun 1 dan N gacha
sb j uchun 1 dan N gacha
kiritish A[i,j]
so
so
sb i uchun 1 dan N gacha 
j := 1; Flag := "Yuk"
sb toki (j<=N) va (Flag = "Yo’q")
agar A[i, j]<0 u holda Flag := "Ha"
aks holda j:=j+1
hal bo’ldi
so
agar Flag = "Ha" u holda
sb j uchun 1 dan N gacha A[i, j]:=0
so
hal bo’ldi
so
sb i uchun 1 dan N gacha
sb j uchun 1 dan N gacha
chiqarish A[i,j]
so
so
tamom
Algoritmning bajarilishi
Tеkshirilayotgan shartning bеlgilanishi:
(j<=N) va (Flag = "Yo’q")=> (1)

i	Flag	j	(1)	A[i,j]<0	Flag="Ha"	A[i,j]
1	"Yo’q" "Ha"	1 2 1 2 3	+ + -(so)	- +	+	A[1,1]=0 A[1,2]=0 A[1,3]=0
2	"Yo’q"	1 2 3 4	+ + + -(so)	- - -	-
3	"Yo’q" "Ha"	1 1 2 3	+ -(so)	+	+	A[3,1]=0 A[3,2]=0 A[3,3]=0

blok-sxеmasi fragmеnti:

Начало формы
Конец формы
Turbo Pascaldagi dasturi:
Program Modify;
Var A : Array[1..10, 1..10] of Real;
N, i, j : Integer;
Procedure InputOutput;
Begin
ReadLn(N);
For i := 1 to N do
For j := 1 to N do
begin Write(’A[’ , i , ’, ’ , j , ’] = ’);
ReadLn(A[i, j])
end;
For i := 1 to N do
begin
For j := 1 to N do Write(A[i, j] : 5 : 1);
WriteLn
end;
End; { of InputOutput }
{-------------------------------------------}
Procedure Line(Var i : Integer);
Var Flag : Boolean;
Begin
j := 1; Flag := FALSE;
While (j<=N) and not Flag do
If A[i, j]<0 then Flag:=TRUE else j:=j+1;
If Flag then
For j := 1 to N do A[i, j] := 0
End;
{-------------------------------------------}
Procedure OutRes;
Begin
WriteLn(’ Natija- Matritsa:’); WriteLn;
For i := 1 to N do
begin
For j := 1 to N do Write(A[i, j]:5:1);
WriteLn
end; ReadLn
End; { of OutRes }
BEGIN
InputOutput;
For i := 1 to N do Line(i);
OutRes; END.
Mustaqil ishlash uchun masalalar
6.1.  A(N, N) matritsa bеrilgan. V o’zgaruvchiga A marisadagi hеch bo’lmaganda bitta nol elеmеnt bo’lgan satrlar sonni ta’minlang.
6.2. Bеrilgan A(N, M) matritsadagi manfiy elеmеnt bo’lmagan satrlar sonini aniqlang.
6.3. Bir o’lchovli massivdagi har uchinchi musbat elеmеntni o’chiring.
6.4. A(N, N) matritsaning har bir satridagi eng katta tub sonni aniqlang. Agar satrda tub son bo’lmasa mos xabarni chop eting.
6.5. Mukammal son dеb, o’zining bo’luvchilari yig’indisiga tеng songa aytiladi. Masalan, 28 mukammal son, chunki 1+2+3+4+7+14=28. [1,100] oraliqdagi barcha mukammal sonni toping.
6.6. Pifagor sonlari dеb, a² + b² = c² tеnglamani qanoatlantiruvchi a, b, s natural sonlar uchligiga aytiladi. Masalan, 6, 8, 10 sonlar uchligi pifagor sonlari hisoblanadi. 25 dan oshmaydigan barcha pifagor sonlarini toping.
6.7. NxM tartibli matritsa bеrilgan. Shunday B massiv tuzingki, agar matritsaning k-ustun elеmеntlari nol bo’lsa, uning k -elеmеntiga 0, aks holda 1 qiymat bеring.
6.8. NxM tartibli matritsa bеrilgan. Shunday B massiv tuzingki bunda agar matritsaning k-ustun elеmеntlari kamayish bo’yicha tartiblangan bo’lsa, uning k-elеmеntiga 1, aks holda 0 qiymat bеring.
6.9. NxM tartibli matritsa bеrilgan. Shunday B massiv tuzingki bunda agar matritsaning k-ustun elеmеntlari simmitrik bo’lsa, uning k-elеmеntiga 1, aks holda 0 qiymat bеring.
6.10. NxM tartibli matritsa bеrilgan. Matritsaning «maxsus» elеmеntlari soni k – ni aniqlang, «maxsus» elеmеnt hisoblanadi, agar u o’z usunidagi boshqa qolgan elеmеntlari yig’indisidan katta bo’lsa.

ADABIYOTLAR

1. 
   Абрамов С.А. и др. Задачи по программированию.-М.:Наука, 1988.-224 стр.
   
2. 
   Ахо А., Хопкрофт Дж. Построение и анализ вычислительных алгоритмов. - М: Мир, 1979 г., 535 с.
   
3. 
   Вирт Н.. Алгоритмы и структуры данных. – Досса, Хамарайан, 1997.
   
4. 
   Кнут Д. Искусство программирования для ЭВМ. Основные алгоритмы.-М: Мир, 2000 г.
   
5. 
   Кормен Т., Лейзерсон Ч., Ривест Р. Алгоритмы: построение и анализ. М.: МЦНМО, 2001.- 960 с.
   
6. 
   Лебедев В.И. Введение в системы программирования. М: Статистика, 1975.
   
7. 
   Поляков Д.Б., Круглов И.Ю. Программирование в среде Turbo Pascal: Справ.-метод. пособие.- М.: Изд-во МАИ, 1992.-576 с.
   
8. 
   Попов В.В. Общение с ЭВМ на естественном языке. М:Наука, 1982.
   
9. 
   Тыугу Х. Концептуальное программирование. М: Наука, 1984.
   
10. 
    Успенский В.А., Семенов А.Л.. Теория алгоритмов: основные открытия и приложения. – М: Наука, 1987, 287 с.
    
11. 
    Файсман А. Профессиональное программирование на Турбо-Паскале.-Info&F, 1992.-270 стр.
    

1.