Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím. In ra màn hình tổng các giá trị là số lẻ, các giá trị là số chẵn. Mọi người giúp mình vs ạ
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím. In ra màn hình tổng các giá trị là số lẻ, các giá trị là số chẵn. Mọi người giúp mình vs ạ
Program FNG;
Uses crt;
Var A: array[1..10000] of longint;
n,i,sl: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
sl:=0;
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
If A[i] mod 2 = 1 then sl:=sl+A[i];
End;
Writeln(‘Tong so le: ‘,sl);
Write(‘Cac gia tri so chan: ‘);
For i:=1 to n do
If A[i] mod 2 = 0 then Write(A[i],’ ‘);
Readln
End.
program ct;
uses crt;
var i,n,S:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
S:=0;
for i:=1 to n do
begin
if A[i] mod 2=1 then S:=S+A[i];
if A[i] mod 2=0 then writeln(‘cac so chan la:’,A[i]);
end;
writeln(‘tong cac so le la:’,S);
readln
end.