nhập mảng a, in mảng đã nhập, tính tổng, tích, tổng chẵn, tổng lẻ trong mảng trong pascal
Những câu hỏi liên quan
1. Viết chương trình Pascal tính tổng các số chia hết cho 3 từ 1 đến 100 Kết quả tổng này là số chẵn hay lẻ? 2. Viết chương trình Pascal nhập vào 1 mảng số nguyên A gồm có N số (N< 100). Có bao nhiêu số chẵn trong mảng A.
Bài 2:
uses crt;
var x,i,n,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then inc(dem);
end;
writeln(dem);
readln;
end.
Đúng 0
Bình luận (1)
Viết chương trình - nhập vào mảng 1 chiều gồm n số nguyên n nhỏ hơn hoặc bằng 100 - tính tổng các phần tử trong mảng -tính các tổng chẵn ,lẻ trong mảng
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t1,t2,t3;
int main()
{
cin>>n;
t1=0; t2=0; t3=0;
for (i=1; i<=n; i++)
{
cin>>x;
t1+=x;
if (x%2==0) t2+=x;
else t3+=x;
}
cout<<t1<<" "<<t2<<" "<<t3;
return 0;
}
Đúng 0
Bình luận (0)
Câu 3: Viết chương trình nhập vào một mảng gồm n phần tử.
a. Tính tổng các phần tử trong mảng
b. In ra tổng của các phần tử chẵn trong mảng.
c. Sắp xếp mảng giảm dần.
Giúp mik với !!! Bằng pascal nhé
uses crt;
var a:array[1..100]of integer;
i,n,t,t1,j,tam:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
for i:=1 to n do t:=t+a[i];
t1:=0;
for i:=1 to n do
if a[i] mod 2=0 then t1:=t1+a[i];
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln(t);
writeln(t1);
for i:=1 to n do write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
1:Viết chương trình Pascal nhập vào mảng a gồm n phần tử nguyên (n100). Sau đó in ra màn hình mảng vừa nhập, tính giá trị của các phần tử có giá trị là số chẵn, in tổng đó.2:Viết chương trình Pascal nhập vào mảng a gồm n phần tử nguyên (n100). Sau đó in ra màn hình mảng vừa nhập, tính giá trị của các phần tử có giá trị là số lẻ, in tổng đó.giúp mik 2 câu này với ạ
Đọc tiếp
1:Viết chương trình Pascal nhập vào mảng a gồm n phần tử nguyên (n<100). Sau đó in ra màn hình mảng vừa nhập, tính giá trị của các phần tử có giá trị là số chẵn, in tổng đó.
2:Viết chương trình Pascal nhập vào mảng a gồm n phần tử nguyên (n<100). Sau đó in ra màn hình mảng vừa nhập, tính giá trị của các phần tử có giá trị là số lẻ, in tổng đó.
giúp mik 2 câu này với ạ
Bài 1
Var a:array:[1..99] of integer;
i,n:integer;
s:longint;
Begin
Repeat
Write('n = ');readln(n);
Until (n > 0) and (n < 100);
For i:=1 to n do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
if a[i] mod 2 = 0 then s:=s+a[i];
End;
Write('Cac so vua nhap la: ');
For i:=1 to n do
Write(a[i]:8);
writeln;
write('Tong cac so chan la ',s);
Readln
End.
Đúng 2
Bình luận (0)
Bài 2
Var a:array:[1..99] of integer;
i,n:integer;
s:longint;
Begin
Repeat
Write('n = ');readln(n);
Until (n > 0) and (n < 100);
For i:=1 to n do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
if a[i] mod 2 <> 0 then s:=s+a[i];
End;
Write('Cac so vua nhap la: ');
For i:=1 to n do
Write(a[i]:8);
writeln;
write('Tong cac so le la ',s);
Readln
End.
Đúng 2
Bình luận (0)
Viết chương trình pascal nhập mảng A gồm N số nguyên. Tính và đưa ra màn hình tổng các phần tử của mảng A thỏa điểu kiện cho trước (chẵn, lẻ, âm , dương,…)
viết chương trình nhập vào danh sách của nhóm bạn vào 1 mảng A gồm 50 phân tử. Tính tổng của các số chẵn , số lẻ trong mảng A . In kết quả lên màn hình là danh sách của nhóm bạn và tổng chẵn , tổng lẻ
Tin 8
-Viết chương trình:
a)Nhập vào mảng 1 chiều N phần tử nguyên(N<=100)
b)In mảng vừa nhập.
c)Tính tổng các phần tử lẻ/chẵn trong mảng
d)Đếm xem trong mảng có bao nhiều phần tử chia hết cho 3.
e)Tính tổng các phần tử trong mảng.
f)Sắp xếp các mảng theo thứ tự tăng dần.
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.
1. Viết chương trình nhập vào mảng gồm n số nguyên, - Đếm và đưa ra số phần tử chẵn của mảng - đưa ra số chẵn lớn nhất trong mảng - Tính tổng các số ở vị trí lẻ trong mảng - Tìm giá trị phần tử lẻ nhỏ nhất
uses crt;
var a:array[1..100]of integer;
i,n,dem,max,t,min,dem1:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
max:=-32000;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
dem:=dem+1;
if max<a[i] then max:=a[i];
end;
if dem=0 then writeln('Trong day khong co so chan')
else begin
writeln('So so chan la: ',dem);
writeln('So chan lon nhat la: ',max);
end;
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+a[i];
writeln('Tong cac so o vi tri le la: ',t);
min:=maxint;
dem1:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
begin
inc(dem1);
if min>a[i] then min:=a[i];
end;
if dem1=0 then writeln('Trong day khong co so le')
else writeln('So le nho nhat la: ',min);
readln;
end.
Đúng 1
Bình luận (0)