Cho số nguyên n với (n<=50)và dãy số nguyên gồm N phần tử được nhập từ bàn phím.Xuất dãy số vừa nhập ra màn hình và tính tổng chia cho 3 trong dãy. Ai đó giúp mình với ạ 🤧🥺

thithoithoi01

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 23 xem

1 trả lời

Thích Trả lời

taylor.swift27112003

program mangvatong;

uses crt;

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

n,i,tong:integer;

begin

clrscr;

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

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');

tong:=0;

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,': ');

readln(A[i]);

if A[i] mod 3=0 then tong:=tong+A[i];

end;

writeln('Mang vua nhap la:');

for i:=1 to n do

write(A[i]:4);

writeln;

write('Tong cac phan tu cua mang chia het cho 3 la: ',tong);

readln

end.

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

435355300470439

Program NN;
Uses crt;
Var A: array[1..10000] of longint;
n,i,s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do
Begin
Read(A[i]);
If A[i] mod 3 = 0 then s:=s+A[i];
End;
For i:=1 to n do
Write(A[i],' ');
Writeln;
Write(s);
Readln
End.

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

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

Em chưa biết làm . Mong nhận đc sự giúp đỡ của mn

A) Tìm các số nguyên n sao cho 1 + n là ước của 13 B) Tính nhanh : A = 1- 3 + 5 - 7 + 9 - 11 + .... - 99 + 10

các bạn có thể vẽ về các nhân vật trong kimetsu no yaiba mik sẽ vote ctlhn và 5* nhen (bất kỳ nhân vật nào,bằng app full màu)

`Zi` ơi nhận hàng:) Nick chính lag rồi ko vô được:3 Vẽ anime:)

Giúp mình vs ạ. Xin cảm ơn trc ạ

Vẽ giúp mik nhoa, đẹp đóa, đang pùn _ 😶😶

Cho 2 pt `x^2 + x - m =0` và `x^2 - mx + 1=0`. Tìm các gtri của tham số `m` để: `a,` 2 pt có nghiệm chung `b,` 2 pt tương đương

ai giúp mình vs😙,mình cần gấp ls

trên trời có giếng nước trong con kiến chẳng lọt con ong chẳng vào là quả gì ?

Ta lại kien truc thành Co Loa

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