массивы

[Natasha2332]

Write a program that asks the user to input dimension of 2- dimensional square array X, fills the array with o and 1 (filling the array all the elements are 0 except NW-SE and NE-SW diagonals) and outputs array to the screen.Write a special function for array generation and procedure for printing it to the screen.

[Vanta11a]

Paste your code here. Or you`re paying?

[Natasha2332]

ну пожалуста помогите

[Natasha2332]

у вас решение есть

[Vanta11a]

Неа. Но написать могу минут за 15. Но не хочу, нет мотивации.

[Rififi]

Vanta11a

Но не хочу, нет мотивации.

как нет? слово "спасибо", написанное большими буквами и крупным шрифтом + в нагрузку 3 восклицательных знака и 8 смайликов.

в качестве отдельной благодарности - изменение цвета шрифта на розовый.

[Mad_Cat]

минут за 15

вы себя недооцениваете, уважаемый, там Дольше Паскаль запускается

const Nmax=20;
Type TMatrix = array[1..Nmax,1..nmax] of byte;
var a:TMatrix;
n:integer;

Procedure XpeHb(var X:Tmatrix;r:integer);
var i,j:integer;
begin
for i:=1 to r do begin
for j:=1 to r do begin
if (i=j) or (i=(r-j+1)) then X[i,j]:=1
else X[i,j]:=0;
Write(x[i,j]:2);
end;
Writeln;
end;
end;
begin
Readln(N);
XpeHb(A,N);
readln;
end.

5
1 0 0 0 1
0 1 0 1 0
0 0 1 0 0
0 1 0 1 0
1 0 0 0 1

А ТС - Вам домашнее задание разбить эту XpeHb на функцию и процедурку

[Natasha2332]

хорошо СПАСИБО большое!!!!