Viết chương trình pascal giúp mình với mn ơi Câu 1: Nhập vào từ bàn phím một mảng các số nguyên. Tìm giá trị nhỏ nhất có trong mảng và in kết quả ra màn hình . Câu 2: Nhập vào từ bàn phím một xâu ký tự. a. Đếm và in ra màn hình số lượng ký tự hoa b. Chuyển tất cả các ký tự trong xâu a thành ký tự hoa tương ứng Câu 3: Em hãy viết chương trình con dạng hàm để tính diện tích, chu vi các hình sau a. Hình vuông có độ dài cạnh là a. b. Hình chữ nhật có độ dài cạnh là a, b.

program CTNMT;

uses crt;

var n,i,dem: longint;

A: array [1..1000] of longint;

Begin

Writeln('Ban hay N'); Readln(n);

for i:=1 to n do

begin

Writeln('Nhap so thu ',i); Readln(a[i]);

end;

Writeln('In ra mang:');

for i:1 to n do Write(a[i]:5);

writeln;

Writeln('In ra so chan trong mang');

for i:= 1 to n do

begin

if (a[i] mod 2) = 0 then Write(a[i]:5)

if a[i] < 0 then dem:= dem +1;

end;

writeln('so so nguyen am la: ',đem);

REadln;

end

Mik bt mỗi câu 1 thôi nha

Program bt1;

Uses crt;

Var:min,n,i:integer;

A:array[1..100]of integer;

Begin

Clrscr;

Write('nhap,n');readln(n);

Write('nhapcacphantucuadayso');

For i:=1 to n do

Begin

Write('a[',i,']=');readln(a[i]);

End;

Min:=a[1];

For i:=2 to n do

Begin

If min>a[i] then min:=a[i];

End;

Readln;

End.