Bài 1
Viết chương trình bằng ngôn ngữ lập trình Pascal. Sử dụng biến mảng để nhập từ bàn phím một dãy số thực. (Độ dài cũng được nhập từ bàn phím. Sau đó in ra màn hình giá trị lớn nhất và nhỏ nhất của dãy số)
Mình đang rất gấp!!!!!!!!!!!!
5 sao + câu hay nhất + cảm ơn
uses crt;
var a:array[1..1000] of real;
max,min:extended;
n,i:longint;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
end;
max:=a[1];min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln(‘Max: ‘,max:0:2);
write(‘Min: ‘,min:0:2);
readln;
end.
Program bien_mang;
Uses Crt;
Var i, n, s:integer;
a: array [1..100] of integer;
Begin
Clrscr;
Write(‘So phan tu la: ‘); readln(n);
s:=0;
For i:=1 to n do
Begin
Write(‘Nhap so thu ‘,i); readln(a[i]);
If a[i] mod 2 = 0 then s:=s+a[i];
End;
Writeln(‘Cac so vua nhap la’);
For i:=1 to n do write(a[i],’ ‘);
Writeln(‘Tong cac so chan la’,s);
Readln;
End.