Tin học Viết chương trình pascal

[QuangHuyCấpBar]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

mng giúp e câu 4 câu 5 với ạ ecảm ơn mng trc nhe

 

[Elishuchi]

4,

var s,s1:string
    i:longint;
begin
    read(s);s1:='';
    for i:=lenght(s) downto 1 do s1:=s1+s[i];
    write(s1);
    readln;
end.

5,

var a:array[1..200] of longint;
    i,n,min:longint;
begin
    readln(n);
    for i:=1 to n do read(a[i]);
    min:=a[1];
    for i:=1 to n do if a[i]<min then min:=a[i];
    write(min);
    readln;
end.

em có thể gõ lại đề để tôn trọng người làm hơn vào lần sau chứ?
việc đăng bài bằng ảnh có thể sẽ làm ảnh bị lỗi vào 1 lúc nào đó.
Cảm ơn em!