Hãy viết chương trình cho phép nhập vào 1 dãy các số và thực hiện yêu cầu sau đây:
+ tính tổng các số chia 3 dư 1 trong dãy;
+ tính tổng bình phương các số chia trong dãy;
giúp mình với ạ! làm mãi chẳng ra T..T
Hãy viết chương trình cho phép nhập vào 1 dãy các số và thực hiện yêu cầu sau đây:
+ tính tổng các số chia 3 dư 1 trong dãy;
+ tính tổng bình phương các số chia trong dãy;
giúp mình với ạ! làm mãi chẳng ra T..T
program mang;
uses crt;
var A: array[1..1000] of integer;
i,S1,S2,n:integer;
begin
clrscr;
write(‘ n = ‘); readln(n);
for i:=1 to n do begin
write(‘A[‘, i , ‘] = ‘); readln(A[i]);
if A[i] mod 3 = 1 then
begin
S1:=S1+A[i];
S2:=A[i]*A[i]+S2;
end;
end;
writeln(‘Tong cac so chia cho 3 du 1 la: ‘, S1);
write(‘Tong binh phuong cac so chia la: ‘, S2);
readln;
end.
program phuongt;
uses crt;
var A: array[1..500] of integer;
i, s1, s2, n: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘, i , ‘] = ‘); readln(A[i]);
if A[i] mod 3 = 1 then
begin
s1:=s1+A[i];
s2:=A[i]*A[i]+s2;
end;
end;
writeln(‘Tong cac so chia 3 du 1: ‘, s1);
write(‘Tong binh phuong cac so chia: ‘, s2);
readln
end.