Gửi bài tập bạn cần làm

Viết chương trình nhập 1 dãy số gồm n số (n nhập từ bàn phím). Tìm và in ra giá trị lớn nhất trong dãy số vừa nhập

Lương Đình Bút | Chat Online
Thứ 2, ngày 13/05/2019 16:15:57
57 lượt xem
Bài 1: Viết ct nhập 1 dãy số gồm n số (n nhập từ bàn phím). Tìm và in ra giá trị lớn nhất trong dãy số vừa nhập.
Bài 2: viết ct nhập 1 dãy số gồm n số(n nhập từ bàn phím). Đếm và in ra trong dãy số có bn số âm, dương
Bài tập này đã có 3 lời giải
Lời giải / Bình luận (3)
Lưu ý: Bạn có thể gửi lời giải, đáp án khác nếu thấy chưa đúng!
Tuyết Nhi | +1đ điểm giá trị
Thứ 6, ngày 17/05/2019 14:31:45
Chat Online
BAI 1 
var a:array[1..100] of integer;
i,n,max:integer;
begin
write('nhap n');readln(n);
for i:=1 to n do 
begin
write( ' a[ ' ,i, '] ');readln(a[i]);
end;
max:=a[i];
for i:=1 to n do 
if a[i]>max then a[i]:=max;
write('so lon nhat trong mang la',max);
readln;
end.
da chay va thanh cong 
0 0 +1 nếu thích, -1 nếu không thích
»Ҫɦέɱ¹sէ« | +1đ điểm giá trị
Thứ 2, ngày 20/05/2019 18:33:40
Chat Online
Bài 1: Viết ct nhập 1 dãy số gồm n số (n nhập từ bàn phím). Tìm và in ra giá trị lớn nhất trong dãy số vừa nhập.
Bài làm:
program lonnhat;
uses crt;
var A:array[1..100] of integer;
       i,n,max:integer;
begin
write('nhap n');readln(n);
for i:=1 to n do 
begin; write( ' a[ ',i,']= ');readln(a[i]); end;
max:=a[i];
for i:=1 to n do  if a[i]>max then a[i]:=max;
write('so lon nhat trong mang la',max);
readln;
end.
0 0 +1 nếu thích, -1 nếu không thích
»Ҫɦέɱ¹sէ« | +1đ điểm giá trị
Thứ 2, ngày 20/05/2019 18:36:46
Chat Online
Bài 2: viết ct nhập 1 dãy số gồm n số(n nhập từ bàn phím). Đếm và in ra trong dãy số có bn số âm, dương.
Bài làm:
program dayso;
uses crt;
var am,duong,i,n:integer;
      A: array[1..100] of integer;
begin clrscr;
writeln('nhap n='); readln(n);<br />for i:=1 to n do <br />begin; writeln('A[i]='); readln(A[i]); end;
am:=0; duong:=0;
for i:=1 to n do 
begin;
if A[i] > 0 then duong:=duong+1;
if A[i] < 0 then am:=am +1;
end;
writeln('co tat ca ',duong,' so duong va ',am,' so am trong day'); 
readln;
end.
0 0 +1 nếu thích, -1 nếu không thích
0
0 sao / 0 đánh giá
5 sao - 0 đánh giá
4 sao - 0 đánh giá
3 sao - 0 đánh giá
2 sao - 0 đánh giá
1 sao - 0 đánh giá
Điểm 0 SAO trên tổng số 0 đánh giá
Gửi lời giải hoặc bình luận của bạn tại đây:
Đăng ký tài khoản để nhận Điểm Giá trịGiải thưởng khi Giải đáp bài tập | Chính sách thưởng trên Lazi.vn >>

Đăng ký nhanh bằng Facebook / Google:

Chọn ảnh chụp lời giải và đăng lên:

Hoặc nhập nội dung lời giải, bình luận tại đây (α π √ Ω ∽ ∞ Δ μ ∈ ∉ ∋ ⊂ ∩ ∪ ∀ ∃ ≤ ≥ ∝ ≈ ⊥ ± ∓ ° ωt + φ λ):

(Thông tin Email/ĐT sẽ không hiển thị phía người dùng)
*Nhấp vào đây để lấy mã kiểm tra (Nhấp vào đây để lấy mã kiểm tra)
Đăng ký tài khoản để nhận Điểm Giá trịGiải thưởng khi Giải đáp bài tập | Chính sách thưởng trên Lazi.vn >>

Đăng ký nhanh bằng Facebook / Google:

Bình luận qua Facebook:
Chào bạn, bạn đang có tâm trạng thế nào?
Vui Buồn Bình thường
Bạn có bài tập cần giải đáp, hãy gửi cho mọi người cùng xem và giải đáp tại đây, chúng tôi luôn hoan nghênh và cảm ơn bạn vì điều này: Gửi bài tập
Ngoài ra, bạn cũng có thể gửi lên Lazi nhiều thứ khác nữa Tại đây!
BẢNG XẾP HẠNG TOP THÀNH VIÊN
Tuần 18 - 24/08 | Tháng 08-2019 | Yêu thích
STT Họ tên Avatar Lượt đánh giá Tổng sao
1 HT Gaming EDM 693 3.261
2 Hoàng Thiên_Kenz 637 3.031
3 ... 490 2.329
4 ☠ɦὰท❄℘ɦℴทջ☠ 381 1.832
5 Duy Đỗ 354 1.722
Lên đầu trang