Bài 1: Nhập xuất và tính tổng các phần tử trong mảng, tổng các số nguyên dương chia hết cho 5 Bài 2: Cho 1 dãy số gồm n phần tử n<=15. Giá trị từng phần tử là số thực. Thực hiện các chương trình sau: a) Nhập từ bàn phím số phần tử và giá trị từng phần tử b) Tính tổng các phần t

huonggemini.255

2 năm trước

Bài 1: Nhập xuất và tính tổng các phần tử trong mảng, tổng các số nguyên dương chia hết cho 5 Bài 2: Cho 1 dãy số gồm n phần tử n<=15. Giá trị từng phần tử là số thực. Thực hiện các chương trình sau: a) Nhập từ bàn phím số phần tử và giá trị từng phần tử b) Tính tổng các phần tử âm của dãy c) Tính tổng và trung bình cộng của các phần tử chẵn của dãy d) Tìm phần tử có giá trị lớn nhất của dãy e) Tìm phần tử có giá trị nhỏ nhất f) Sắp xếp dãy theo chiều giảm dần về giá trị của từng phần tử g) In các kết quả trên ra màn hình

Loga Sinh Học lớp 12

0 lượt thích 38 xem

1 trả lời

Thích Trả lời

buigiabao5928

Bài 1:

var n,i,d:longint;

a: array [1..100] of longint;

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

for i:=1 to n do

write('A[',i,'] = '); read(a[i]);

for i:=1 to n if a[i] mod 5=0 then then inc(d);

writeln;

write('So luong: ',d);

readln;

end.

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

minhquangngo42

Bài 1:

Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
n,i,t,s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
t:=0; s:=0;
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
t:=t+A[i];
If (A[i] mod 5 = 0) and (A[i]>0) then s:=s+A[i];
End;
Write(t,' ',s);
Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
n,i,t,s,max,min,tg,j,d: longint;
tbc: real;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
t:=0; s:=0; d:=0; min:=maxlongint;
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If A[i]<0 then t:=t+A[i];
If A[i] mod 2 = 0 then
Begin
s:=s+A[i];
inc(d);
End;
If A[i]<min then min:=A[i];
End;
max:=A[1];
For i:=2 to n do
If A[i]>max then max:=A[i];
tbc:=s/d;
For i:=1 to n-1 do
For j:=i+1 to n do
If A[i]<A[j] then
Begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
End;
Writeln('b) ',t);
Writeln('c) ',s,' ',tbc:0:2);
Writeln('d) ',max);
Writeln('e) ',min);
For i:=1 to n do Write(A[i],' ');
Readln
End.

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

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

Viết các số thíc hợp vào ô trống

LÀM ƠN GIÚP VỚI !!!!! Cho tam giác ABC, R1và R2 lần lượt là bán kính đường tròn nội tiếp và ngoại tiếp tam giác ABC. CMR: R1 ≥ 2R2

Mọi người giúp mình bài 2 với ạ, cám ơn ạ

x^2+2x+2=0 Tìm x ạ Giúp với ạ Cảm ơn

GIải giúp mình vớiiii 1. Cho cấp số nhân (un) có u2=3, u3=9. Tìm q và u1 2. Tìm x biết x^2+1, x-2, 1-3x lập thành cấp số cộng

Tính diện tích hình thang có đáy lớn 54m,đáy bé bằng 2/3 đáy lớn và bằng 3/2 chiều cao

Xác định A, B, C, D và hoàn thành các phương trình phản ứng sau: 1. MnO2 + (A) → MnCl2 + (B)↑ + (C) 2. (B) + H2 → (A) 3. (A) + (D) → FeCl2 + H2 4. (B) + (D) → FeCl3 5. (B) + (C) → (A) + HclO

IV. Rewrite sentences by combining two sentences into one sentence and using suggested clues: 1. The air is so dirty. I sneeze so much. CONDITIONAL SENTENCE TYPE 2 - The air was so dirty, I would sneeze so much. 2. Their children have birth defects. The parents were exposed to radiation. BECAUSE - Their children have birth defects because the parents were exposed to radiation. 3. The air pollution causes breathing problems. LEADS ________________________________________________________________________________

Anh chị nào giải giúp em với ạ. Em cảm ơn

Giúp mk câu 5 với mk đang cần gấp nhé

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