Nhập vào 1 mảng gồm n số có kiểu dữ liệu là số nguyên a, in mảng vừa nhập b, tìm số lớn nhất , nhỏ nhất của mảng c, đếm có bao nhiêu số âm , bao nhiêu số dương d, tính tổng các số trong mảng .

trinhnguyenyenvi19992002

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 21 xem

1 trả lời

Thích Trả lời

hunghoa1984

var A:array[1..20] of integer;
i,N,dem1,dem2,Max,min:byte;
S:integer;
begin
Write('Nhap N :');Readln(N);
for i :=1 to N do
begin
Write('Nhap so thu ',i,':');Readln(A[i]);
S:=S+A[i];
if A[i] mod 2 = 0 then dem1:=dem1+1;
if A[i] mod 2 <> 0 then dem2:=dem2+1;
end;
max:=A[1];
For i:=2 To N Do
If Max<A[i] Then Max:=A[i];
Writeln('Phan tu lon nhat cua mang:', Max);
min:=A[1];
For i:=2 to N do
if min>A[i] then Min:=A[i];
Writeln('Phan tu nho nhat cua mang:',min);
Writeln('Tong cac so hang = ',S);
Writeln('co ',dem1,' so chan trong mang' );
Writeln('co ',dem2,' so le trong mang');
Readln
End.

Vote (0) Phản hồi (0) 2 năm trước

Thuuyen2122

program mang;

uses crt;

var A:array [1..500] of integer;

n,i,max,min,da,dd,T: integer;

Begin

clrscr;

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(A[i]);

end;

write('a) Mang vua nhap: ');

for i:=1 to n do write(A[i],' ');

writeln;

max:=1; min:=1;

for i:=1 to n do

begin

if max<A[i] then max:=A[i];

if min>A[i] then min:=A[i];

if A[i]<0 then da:=da+1;

if A[i]>0 then dd:=dd+1;

T:=T+A[i];

end;

writeln('b) So lon nhat: ',max);

writeln(' So nho nhat: ',min);

writeln('c) Co ',da,' so am');

writeln(' Co ',dd,' so duong');

write('d) Tong cac so trong mang = ',T);

readln

End.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

câu 1 khi nhìn thấy bạn nghe trộm điện thoại của em em sẽ làm gì ? câu 2 em ứng xử như thế nào nếu biết người khác vi phạm quyền được đảm bảo an toàn về bí mật thư tín , điện thoại , điện tín?

giúp mik đi ạ, mình hứa vote nhưng phải đúng ạ

một mảnh đất hình chữ nhật có chu vi bằng 28m và độ dài đường chéo bằng 10m .tính chiều dài và chiều rộng của mảnh đất đó theo đơn vị mét

trung binh cong cua 2 so la 15.tim 2 so do,biet so lon gap doi so be

Giúp mình với ạ giúp mình với làm như tự luận nha

Giải hộ mình với ạ mình sẽ đánh giá 5 sao và cho câu trả lời hay nhất

Muốn khởi động vuốt em làm như thế nào Trình bày các bước sao chép phần văn bản Em trình bày các bước chèn ảnh vào văn bant

một đội công nhân sửa đường ,buổi sáng sửa được 812,5 m đường và bằng 65% đoạn đường sửa buôi chiều . hỏi cả hai buôi sửa được bao nhiêu m đường

Cho tam giác ABC vuông tại A và góc ABC=60o a) Trên cạnh BC lấy điểm D sao cho BD=AB. Qua D dựng đường thẳng vuông góc với BC cắt tia đối AB tại E. CM: tam giác ABC = tam giác DBE b) Qua B dựng đường vuông góc với AB cắt đg thẳng ED tại K. CM: tam giác HBK đều

trên cùng một nửa mặt phẳng bở chứa tia Ox, vẽ hai tia Oy, Oz sao cho xot= 50 độ, xoy= 100 độ a, tia ot có nằm giữa hai tia oxvaf oy không? vì sao? b, so sánh gó cot và góc toy c, tia ot có là tia phân giác của góc xoy không ? vì sao?

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến