http://mendo.mk/jforum/posts/list/13.page JForum - http://www.jforum.net https://imgur.com/a/GPy5r]]> http://mendo.mk/jforum/posts/preList/509/3241.page http://mendo.mk/jforum/posts/preList/509/3241.page GMT Ова делува како некоја задача за домашно, така да во иднина гледај сам да решаваш.
[code]program diagonal;
const N = 10;
type Matrix = array[1..N,1..N] of Char;
var abc: Matrix;
var i, j: integer;

begin
for i := 1 to N do
begin
for j := 1 to N do
begin

if (i < j)
then abc[i][j] := 'y'
else abc[i][j] := 'a';

write(abc[i][j]); //izbrishi ako ne sakash da se ispechati
end;

writeln(); //izbrishi ako ne sakash da se ispechati
end;
end.[/code]]]> http://mendo.mk/jforum/posts/preList/509/3243.page http://mendo.mk/jforum/posts/preList/509/3243.page GMT