Câu 1: viết câu lệnh 1. Khai báo mảng A gồm N ptử số nguyên(N<=100) mỗi phần tử có gtri tuyệt đối<=200 2. Nhập mảng 3. Xuất mảng vừa nhập Câu 2: với mảng vừa nhập ở câu 1, e hãy viết câu lệnh thực hiện công việc sau: 1. Tính tổng các số chẵn có trong mảng A. 2. Tính tổng các số c

nnhan8206

2 năm trước

Câu 1: viết câu lệnh 1. Khai báo mảng A gồm N ptử số nguyên(N<=100) mỗi phần tử có gtri tuyệt đối<=200 2. Nhập mảng 3. Xuất mảng vừa nhập Câu 2: với mảng vừa nhập ở câu 1, e hãy viết câu lệnh thực hiện công việc sau: 1. Tính tổng các số chẵn có trong mảng A. 2. Tính tổng các số chia hết cho số k(k là số nguyên cho trước ) có trong mảng A. 3. In ra màn hình các số lẻ có trong mảng A. Giúp mk vs mk cần gấp lắm!!

Loga Sinh Học lớp 12

0 lượt thích 18 xem

1 trả lời

Thích Trả lời

duong2417

Câu 1:

Uses crt;
Var A:Array[1..100] of integer;
i, n: integer;
Begin
Clrscr;
Write('Nhap n = '); readln(n);
For i:=1 to n do
Begin
Write('Nhap A[',i,']: ');
Readln(A[i]);
End;
Readln
End.

Câu 2:

Uses crt;
Var A:Array[1..100] of integer;
i, n, tc, tch, dl, k: integer;
Begin
Clrscr;
Write('Nhap n = '); readln(n);
Write('Nhap k = '); readln(k);
For i:=1 to n do
Begin
Write('Nhap A[',i,']: ');
Readln(A[i]);
End;
tc:=0; tch:=0; dl:=0;
For i:=1 to n do if a[i] mod 2 = 0 then inc(tc, a[i]);
For i:=1 to n do if a[i] mod k = 0 then inc(tch, a[i]);
For i:=1 to n do if a[i] mod 2 = 1 then inc(dl);
Writeln('Tong cac so chan la: ',tc:4:2);
Writeln('Tong cac so chia het cho so ',k,' la: ',tch:4:2);
Writeln('Co ',dl,' so le trong mang');
readln
End.

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

dangkhoa211507

BT1:

Program NN;
Uses crt;
Var A: array[1..100] of longint;
n,i: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do Read(A[i]);
For i:=1 to n do Write(A[i],' ');
Readln
End.

BT2:

Program NN;
Uses crt;
Var A: array[1..100] of longint;
n,i,sc,s,k: longint;
Begin
Clrscr;
Write('Nhap n,k: '); Readln(n,k);
For i:=1 to n do
Begin
Read(A[i]);
If A[i] mod 2 = 0 then sc:=sc+A[i];
If A[i] mod k = 0 then s:=s+A[i];
End;
Writeln('1. ',sc);
Writeln('2. ',s);
Write('3. ');
For i:=1 to n do
If A[i] mod 2 <> 0 then 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

Ai giúp mik nhah với đang cần gấp

sau đây là đoạn kết của câu chuyện về 1 chuyến thăm quê :"Cả nhà lên đường từ sáng sớm cho kịp tàu.Chú thím em cũng ra tiễn 1 đoạn xa , đến tận cổng làng .Rạng tre râm mát cũng nghiêng đàu, vẫy chào tạm biệt .Thế là em hiểu đc quê hương đó là nơi mồ mả tổ tiên nhiều đơiì , là nơi thờ cúng dòng họ nơi những người cùng dòng máu, dù đi xa xôi đều nhận ra nhau và có tình thân với nhau" a) người viết đã sử dụng phương thức biểu đạt nào ? b) chỉ ra câu nghị luận trong bài trích đó c) học theo lối kết đó , hãy vieets 1 đoạn kết cho câu chuyện kể về 1 kỉ niệm nhân ngày NHÀ GIÁO VIỆT NAM help me ! giải đc ,nhờ gì mình cũng làm

Cho 14g canxi oxit, CaO tác dụng với nước, thu được 0,5 lít dung dịch bazơ, sau đó trung Hoà dung dịch bazơ bằng dung dịch H2SO4 a. Viết các phương trình hoá học xảy ra b. Tính nồng độ mol của dung dịch bazơ thu được c. Tính thể tích dung dịch H2SO4 20% có khối lượng riêng 1,14 g/ml cần dùng để trung hòa dung dịch bazơ nói trên (Biết : H=1, S=32, O=10, Ca=40)

tìm số hạng có khai triển là số nguyên (3√4 + 1/√2)^10

1Bốn tụ điện giống nhau mỗi tụ điện có dung c được ghép song song thành bộ tụ điện điện dung của bộ tụ điện bằng? bốn tụ điện giống nhau mỗi tụ điện dung c được ghép nối tiếp thành bốn tụ điện điện dung của bộ tụ điện bằng?

Câu 1: tìm x biết: X : 5 = 145 + 55 Giúp em vs ạ ❤❤ Cảm ơn m.n nhiều

Số cách chọn 8 quyển sách khác nhau cho 4 hs, mỗi học sinh 2 quyển là

Mọi ng ơi giúp e làm câu 9 với ạ e cảm ơn

hãy vẽ hình bt: tam giác ABC có: A=90 BC=2AB E là trung điểm BC, tia phân giác B cắt AC tại D

Cho R1=R2 =3ôm .R3=6ôm.E=3v r=1ôm Tính điện trở mạch ngoài và cường độ dòng điện trong mạch Tính công suất tiêu thụ R3 và hiệu suất nguồn động điện

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