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.
Hiç yorum yok:
Yorum Gönder