uses crt;
var a: array[1..100] of ineteger;
i,n,max: integer;
begin
clrscr;
write ('nhap n: '); readln (n);
for i:=1 to n do
write ('nhap phan tu thu ',i,': '); readln (a[i]);
end;
max:=a[1];
for i:=2 to n do
if max<a[i] then max:=a[i];
writeln;
write ('day so nguyen vua nhap: ');
for i:=1 to n do write (a[i]:1:2);
writeln ('gia tri lon nhat trong day la: ',max);
readln;
end.
Uses Crt; Var i,n,m:integer; a:array[1..100] of integer; Begin Clrscr; Write('Nhap n = '); Readln(n); For i:=1 to n do Begin Write('A[',i,'] = '); Readln(a[i]); End; m:=A[1]; For i:=2 to n do If A[i]<m then m:=A[i]; Writeln(m); Readln; End;
Mik xin ctlhn nhé!
Các bạn giúp mình câu hỏi này gấp với, vẽ hình và giải chi tiết theo cách trình bày của lớp 7 luôn nha, mik tik điểm cho.
vẽ một chú mèo trắng cute có đôi mắt hồng bằng app hộ mik để lm avt
Chia thì 1. Someone (cut) down all the trees in the garden. 2. She (ask) me to tell about him several times. 3. The audience (listen) to everything he said last night. 4. A: I (play) football since I was 5 years old. B: You (play) since you (come) to England? A: Oh, yes. I (play) quite a lot. I (join) a club the day after I (arrive). 5. He said he (be) mistaken. 6. Don't speak until someone (ask) you. 7. Mary (come) from London. 8. The last train (leave) the station at 5 p.m. Làm giúp mình vs ạ mình cần gấp🥺
Giải phương trình: (x²-4x)²+(x-2)²=43
Giups mình Cứuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu
Who is it? A. It's she B. She's Marry C. It's Marry D. I'm Marry
Tìm một STN biết nếu ta nhân đôi số đó lên rồi chia 3 thì được STN nhỏ nhất có 4 chữ số
giúp với nhanh lên chiều noppj rồi
Vẽ mầm tức Digi nhé :) N/L : Như này đây *Đập bàn
giúp e 5c thôi nhé chiều noppj r
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
