Viết chương trình nhập N số nguyên từ bàn phim và xuất ra màn hình( sử dụng mảng)
a, tổng các số chẵn vừa nhập
b, tổng các số lẻ vừa nhập
Mọi người ơi giúp em cái mai thi rồi :(
7. 2. Viết chương trình sử dụng biến mảng để nhập N số nguyên từ bàn phim và độ dài của dãy số cũng được nhập từ bản phim. Thông báo ra màn hình tổng của dãy sổ vừa nhập.
Viết chương trình nhập vào mảng n số nguyên. Tính và in ra màn hình tổng các số chẵn, lẻ của mảng vừa nhập.
Viết chương trình nhập từ bàn phím các phần tử của 1 dãy số.Độ dài N nhập từ bàn phím.Tính tổng các phần tử số chẵn vừa nhập và in ra màn hình. Giúp mik vs ạ mai mik thi r😭
program TongSoChanTrongDay;
var
n, i, tong: integer;
a: array[1..100] of integer;
begin
tong := 0;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 2 = 0 then
tong := tong + a[i];
end;
writeln('Tong cac phan tu chan trong day la: ', tong);
readln;
end.
Viết chương trình nhập vào dãy số tự nhiên. Đếm và in ra màn hình số phần tử chẵn, tính tổng số phần tử chẵn trong n số vừa nhập. (Lưu ý không dùng mảng)
Mọi người ơi, giúp em với ạ
#include <bits/stdc++.h>
using namespace std;
long long dem,x,n,i,t;
int main()
{
cin>>n;
t=0;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0)
{
dem++;
t+=x;
}
}
cout<<dem<<" "<<t;
return 0;
}
Var s,n,i,dem,so:integer;
Begin
Write('Nhap so luong so n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i);readln(so);
If so mod 2 = 0 then
Begin
dem:=dem+1;
s:=s+so;
End;
End;
Writeln('Co ',dem,' so chan');
Write('Tong cac so chan la ',s);
Readln;
End.
Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
+ Xuất ra màn hình các số vừa nhập
+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?
Làm giúp với !
uses crt;
var a:array[1..100]of integer;
i,n,t,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
kt:=0;
for j:=2 to trunc(sqrt(t)) do
if t mod j=0 then
begin
kt:=1;
break;
end;
if kt=0 then writeln(t,' la so nguyen to')
else writeln(t,' khong la so nguyen to');
readln;
end.
Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
+ Xuất ra màn hình các số vừa nhập
+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?
Làm giúp với !
uses crt;
var a:array[1..100]of integer;
i,n,t,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac so vua nhap la: ',t);
if t>=2 then
begin
kt:=0;
for i:=2 to trunc(sqrt(t)) do
if t mod i=0 then
begin
kt:=1;
break;
end;
if kt=0 then writeln(t,' la so nguyen to')
else writeln(t,' khong la so nguyen to');
end
else writeln(t,' khong la so nguyen to');
readln;
end.
Giúp mình với, mai mình thi rồi huhu. Hãy hoàn thành chương trình nhập mảng N số nguyên từ bàn phím và in ra màn hình số lớn nhất, số nhỏ nhất, số phần tử chẵn lẻ của mảng (N được nhập từ bàn phím)
program mang;
uses crt;
var n,i,chan, le,max,min: Integer;
a:array[1..100] of integer;
begin
write('nhap so phan tu ');read(n);
for i:=1 to n do
begin
write('nhap so thu ',i); readln(a[i]);
end;
max:=a[1]; min:=a[1]; chan:=0;le:=0;
for i:=1to n do
begin
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
if a[i] mod 2 = 0 then chan:=chan+1
else le:=le+1;
end;
writeln('max la: ',max);
writeln('min la: ',min);
writeln('so phan tu chan: ',chan);
writeln('so phan tu le: ',le);
readln
end.
Viết phương trình vào mảng số nguyên n phần tử (n <=50)
a, in mảng vừa nhập ra màn hình
b, tính tổng các số lẻ chia hết cho 5 có trong mảng
Làm nhanh hộ em mai em thi rồi
uses crt;
var a:array[1..50]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
t:=0;
for i:=1 to n do
if (a[i] mod 2<>0) and (a[i] mod 5=0) then t:=t+a[i];
writeln;
writeln(t);
readln;
end.