birdenonbeşekadar

PROGRAM bironbes;
VAR j: INTEGER;
BEGIN
..for j:=1 to 15 do
....begin
......if j mod 5=0 then
........begin
.........write(j:2);
.........writeln;
........end

......else
.......write(j:2);


......end;


READLN;
END.

Matris_1'den 15'e..

program dizi4;

var i,j,k : integer;



begin
k:=1;

for i := 1 to 3 do

begin
for j:= 1 to 5 do
begin
write(k:3);
k:=k+1;
end;
writeln;

end;

readln;
end.

12345

PROGRAM biriki;
VAR i,j: INTEGER;
BEGIN
j:=j+1;
for i:=1 to 3 do

..begin
.....for j:=1 to 5 do
.......begin
........write(j );
.......end;
..writeln;
..end;

READLN;
END.

dizi3

program diziler;

Var i,j, a: integer;
sira:ARRAY[0..4] of integer;


begin
writeln('sayi giriniz');


for j := 0 to 4 do

begin
readln(sira[j]);
end;

for j := 4 downto 0 do

begin
writeln('dizinin', j, 'inci elemani:', sira[j]);
end;


readln;
end.

diziler_sayı yazdırma

PROGRAM diziler2;

VAR i,j:integer;

SIRA : ARRAY [0..4] of integer;

BEGIN
writeln ('bes tane tam say girin');


for i:=0 to 4 do

begin



READLN(SIRA[i]);

end;

for i:=4 downto 0 do

begin
writeln('SIRA= ', SIRA[i]);

end;





READLN;

END.

Diziler_Downto

program diziler;

Var i,j: integer;
dizi:ARRAY[0..7] of integer;
a: integer;

begin

for i := 0 to 7 do

begin
dizi[i] := i*10;
end;

for j:= 0 to 7 do
writeln(dizi[j]:6);

for j:= 7 downto 0 do
writeln(dizi[j]:6);




readln;
end.

diziler1

PROGRAM diziler1;

VAR i:integer;

dizi : ARRAY [0..7] of integer;

BEGIN

for i:=0 to 7 do

begin

dizi[i] := i*10;

end;

WRITELN (dizi[0]:6);
WRITELN (dizi[1]:6);
WRITELN (dizi[2]:6);
WRITELN (dizi[3]:6);
WRITELN (dizi[4]:6);
WRITELN (dizi[5]:6);
WRITELN (dizi[6]:6);
WRITELN (dizi[7]:6);

READLN;

END.