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.
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
By Isabelle
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.
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