fork(3) download 
  1. program ideone;
  2. 															{i - СЧИТАЕТ СТОБЦЫ}
  3. 	uses crt;
  4.  
  5. var
  6.  
  7. 	q,n,x,i,j:integer;
  8. 	massiv:array[1..10,1..10] of integer;
  9.  
  10. begin
  11.  
  12.  
  13.  
  14.  
  15.  
  16. {Заполнение Массива}  for j:=1 to 10 do begin 		{цикл для перебора всех строк}		
  17.  
  18. 							for i:=1 to 10 do begin {перебор всех элементов строки по столбцам}	
  19. 					{ЯДРО}
  20. 								massiv[i,j]:=0;
  21.  
  22.  
  23. 								if i=j then
  24. 								massiv[i,j]:=1;	
  25.  
  26. 								if (i=1) or (i=10) then begin
  27. 								massiv[i,j]:=1;	
  28. 								end;
  29.  
  30.  
  31. 							end;
  32. 					  end;
  33.  
  34.  
  35. writeln;
  36.  
  37. 	{Вывод Массива} for j:=1 to 10 do begin 		{цикл для перебора всех строк}		
  38. 					writeln;
  39. 						for i:=1 to 10 do begin {перебор всех элементов строки по столбцам}	
  40. 							write(massiv[i,j]:5);
  41. 						end;
  42. 					end;
  43. end.						
  44. 								if i=j then
  45. 								massiv[i,j]:=1;	
  46.  
  47. 								if (i=1) or (i=10) then begin
  48. 								massiv[i,j]:=1;	
  49. 								end;
  50.  
  51.  
  52.  
  53. 							end;
  54. 					  end;
  55.  
  56.  
  57. writeln;
  58.  
  59. 	{Вывод Массива} for j:=1 to 10 do begin 		{цикл для перебора всех строк}		
  60. 					writeln;
  61. 						for i:=1 to 10 do begin {перебор всех элементов строки по столбцам}	
  62. 							write(massiv[i,j]:5);
  63. 						end;
  64. 					end;
  65. end.
Success #stdin #stdout 0s 316KB
comments (?)
stdin 
Standard input is empty
stdout 

    1    0    0    0    0    0    0    0    0    1
    1    1    0    0    0    0    0    0    0    1
    1    0    1    0    0    0    0    0    0    1
    1    0    0    1    0    0    0    0    0    1
    1    0    0    0    1    0    0    0    0    1
    1    0    0    0    0    1    0    0    0    1
    1    0    0    0    0    0    1    0    0    1
    1    0    0    0    0    0    0    1    0    1
    1    0    0    0    0    0    0    0    1    1
    1    0    0    0    0    0    0    0    0    1
https://ideone.com/XxhEFp
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!