Tạo mảng A gồm n (n<=100) số nguyên, mỗi số có giá trị tuyệt đối không vượt quá 300. Tính tổng các phần tử của mảng KHÔNG là bội số của một số nguyên dương k cho trước.

whitefang2303

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 19 xem

1 trả lời

Thích Trả lời

Luuluongnvty

program phuongt;

uses crt;

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

i, s, k, n: integer;

begin

clrscr;

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

write('Nhap k = '); readln(k);

s:=0;

for i:=1 to n do

begin

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

if (abs(A[i])<=300) and (A[i] mod k <> 0) then s:=s+A[i]);

end;

write('S = ', s);

readln

end.

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

0918270395

Program BTT;
Uses crt;
Var A: array[1..100] of longint;
n,i,s,k: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
Write('Nhap k: '); Readln(k);
s:=0;
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If abs(A[i])>300 then
While abs(A[i])>300 do
Begin
Write('Nhap lai A[',i,'] = ');
Readln(A[i]);
End;
If A[i] mod k = 0 then s:=s+A[i];
End;
Write('Tong = ',s);
Readln
End.

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

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

Giúp mik vs từ câu 2 đêan câu 8đos

Tìm x trong hình Gợi ý bài định lý pytago

thuyết minh về một danh lam thắng cảnh ở địa phương em bà nà(đà nẵng)cần gấp

Vỏ cơ thể tôm sông(nhanh đang cần gap

Với câu lệnh for <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>; Khi thực hiện, nếu biến điếm nhận giá trị là 1 sau mỗi vòng lặp biến đếm tăng thêm bao nhiêu đơn vị?

Tìm hai phân số có mẫu dương biết rằng trong hai mẫu có một mẫu gấp 5 lần mẫu kia và sau khi quy đồng mẫu hai phân số đó thì được 56/210 và -65/210

Viết một đoạn văn 5 - 7 câu có sử dụng trạng ngữ và nêu rõ tác dụng của trạng ngữ đón (ít nhất có hai câu trạng ngữ)

Dạ câu 3 tự luận ai giúp em vs ạ

soạn bài buổi học cuối cùng ngữ văn 6 không chép mạng

khi cộng 1 số tự nhiên với 1 số thập phân 1 học sinh sơ ý đã vt nhầm dấu phẩy của số thập phân sag bên trái 1 hàng nên tìm đc tổng sai là 2043.56 . tìm số thập phân đó ? bt tổng đúng là 2354.6. vậy số thập phân là.....

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