Viết chương trình thực hiện các yêu cầu sau: Cho số nguyên dương N (N≤50) và dãy A gồm N số nguyên A1, A2,… AN, mỗi số không vượt quá 500. a. Nhập giá trị cho dãy A từ bàn phím. b. Tính tổng các phần tử của dãy. c. Tìm giá trị và chỉ số phần tử lớn nhất, nếu có nhiều phần tử cùng

lieuphan329

2 năm trước

Viết chương trình thực hiện các yêu cầu sau: Cho số nguyên dương N (N≤50) và dãy A gồm N số nguyên A1, A2,… AN, mỗi số không vượt quá 500. a. Nhập giá trị cho dãy A từ bàn phím. b. Tính tổng các phần tử của dãy. c. Tìm giá trị và chỉ số phần tử lớn nhất, nếu có nhiều phần tử cùng lớn nhất tìm chỉ số lớn nhất. d. Đếm có bao nhiêu phần tử cùng lớn nhất. e. In chỉ số các phần tử = 0 Giúp nhanh cho mình zới mọi người huhu !!

Loga Sinh Học lớp 12

0 lượt thích 33 xem

1 trả lời

Thích Trả lời

roman462001

Var a:array[1..100] of integer;

j,n,i,max,m,S:integer;

Begin

repeat

write('Nhap so N: ');readln(n);

until n<=50;

/cau a/

For i:=1 to n do

Begin

repeat

write('Phan tu thu ' ,i,' :);readln(A[i]);

until A[i]<=500;

End;

/cau b/

For i:=1 to n do S:=S+A[i];

Writeln('Tong cua day',S);

/cau c va cau d/

max :=A[1];

m:=1;

For i:=2 to n do

If A[i]>max then begin

max:=A[i];

m:=i;

End;

writeln('Gia tri lon nhat cua day',max);

writeln('Chi so lon nhat cua day',m);

j:=0;

For i:=1 to n do

If A[i]= max then

j:=j+1;

writeln('so phan tu cung lon nhat',j);

/cau e/

Writeln('Chi so cac phan tu =0');

For i:=1 to n do

If A[i]=0 then writeln(i);

readln;

end.

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

nguyenthilienc3yp2

program Hotrotinhoc;

var d,i,n,t,max,min: integer;

begin

write(n='); readln(n);

for i:=1 to n do

begin

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

t:=t+a[i];

end;

max:=0; min:=32000;

for i:=1 to n do

if a[i]>max then max:=a[i];

for i:=1 to n do

if max=a[i] then inc(d);

if d>1 then

begin

for i:=1 to n do

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

write(min);

end;

for i:=1 to n do if a[i]=0 then write(i,' ');

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 Tại sao nói Đông Nam Á có vị trí cầu nối giữa 2 đại dương và 2 châu lục? Giúp mình với ạ

các cậu giúp mình với..mình phải nộp trước ngày 18. cảm ơn các cậu.

Giúp mình ạ các bạn Em hãy chọn một điều ấn tượng nhất với mình trong đợt nghỉ học vì dịch Covid-19 này, tự đặt nhan đề và viết thành một bài văn nhỏ để kể cho mọi người khi gặp lại. Mấy bạn giỏi văn giúp mình ạ

cho hệ phương trình : (a+1)x-y=3 và ax+y=a.Tìm a để hệ phương trình có nghiệm duy nhất thỏa mãn điều kiện x+y>0.

Giúp mình ạ các bạn Em hãy chọn một điều ấn tượng nhất với mình trong đợt nghỉ học vì dịch Covid-19 này, tự đặt nhan đề và viết thành một bài văn nhỏ để kể cho mọi người khi gặp lại.

Câu 1: Thế nào là lịch sự, tế nhị? Nêu ý nghĩa. Em hãy nêu một ví dụ về cách cư xử lịch sự,tế nhị mà em biết ? Câu 2:Em hãy nêu và phân tích một hành vi của bản thân đã thể hiện thái độ lịch sự, tế nhị (hoặc thiếu lịch sự,thiếu tế nhị- nếu có) Câu 3: Thế nào là sống chan hòa với mọi người?Vì sao học sinh cần phải sống chan hòa với mọi người?Tìm những biểu hiện biết sống chan hòa và chưa biết sống chan hòa? Câu 4:Em hiểu thế nào là “Tiên học lễ, hậu học văn” Câu 5: Thiên nhiên bao gồm những yếu tố nào? Hãy kể những cảnh đẹp thiên nhiên ở Khánh Hòa mà em biết?

Qua 2 bài thơ ngắm trăng và đi đường em rút ra bài học gì cho bản thân?

Cho hình tháng ABCD (AB//CD), một đường thẳng song song với đáy cắt cạnh bên AD,BC lần lượt ở E và E. Chứng minh rằng: ED/AD=FC/BC

Mấy bạn ráng giúp giùm mình nha. Mình đang cần gấp.

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