viết chương trình nhập vào 1 dãy số nguyên gồm 20 phần tử in ra màn hình dãy số vừa nhập
giúp mình với các cậu ơi
Mọi người giúp mình đi Viết chương trình Nhập vào dãy số nguyên gồm 20 phần tử In ra màn hình dãy số vừa nhập In tổng dãy số đó In các số lớn hơn 50 trong dãy số In các số bé hơn 30 trong dãy số
uses crt;
var a:array[1..20]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);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day la: ',t);
for i:=1 to n do
if a[i]>50 then write(a[i]:4);
writeln;
for i:=1 to n do
if a[i]<30 then write(a[i]:4);
readln;
end.
Hãy viết chương trình nhập vào số nguyên dương A gồm 10 phần tử. Đếm số lượng các số chẵn trong dãy A vừa nhập. Đưa ra màn hình : dãy số vừa nhập, số lượng số chẵn trong dãy số vừa đếm được .
Mọi người ơi, giúp mình với ạ mình cảm ơn rất nhiều !!
uses crt;
var a:array[1..10]of integer;
i,n,dem:integer;
begin
clrscr;
for i:=1 to 10 do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
writeln('Day so vua nhap la: ');
for i:=1 to 10 do
write(a[i]:4);
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln;
writeln('So luong so chan la: ',dem);
readln;
end.
Viết chương trình nhập vào 1 dãy số nguyên gồm 80 phần tử in ra màn hình dãy số vừa nhập
program In_Day_So_Nguyen;
uses crt;
var
a: array[1..80] of integer;
i: integer;
begin
clrscr;
writeln('Nhap vao day so nguyen: ');
for i := 1 to 80 do
begin
readln(a[i]);
end;
writeln('Day so nguyen ban vua nhap la: ');
for i:=1 to 80 do
begin
write(a[i], ' ');
end;
readln;
end.
1/viết chương trình nhập dãy số gồm 10 số nguyên dương.In ra màn hình số bé nhất (Min)
2/viết chương trình nhập dãy số gồm n số nguyên.
a. Tính tổng các phần tử của dãy.
b. In ra màn hình các phần tử là số chẵn hoặc lẻ.
[Giúp mình với mình đang cần gấp mai là mình thì rồi. Cảm ơn mn trước ạ]
1:
#include <bits/stdc++.h>
using namespace std;
long long n=10, a[10],i,nn;
int main()
{
for (i=1; i<=n; i++) cin>>a[i];
nn=a[1];
for (i=2; i<=n; i++) nn=min(nn,a[i]);
cout<<nn;
return 0;
}
Viết chương trình nhập từ bàn phím dãy số nguyên gồm n phần tử. Xuất ra màn hình dãy số vừa nhập Làm đầy đủ giúp mình với ạ
Uses crt;
var i,n: integer;
a: array[1..100] of longint;
begin clrscr;
readln(n);
for i:=1 to n do read(a[i]); readln;
writeln(a[i]:3);
readln;
end.
Viết chương trình nhập biến mảng M gồm 100 phần tử thuộc kiểu số nguyên +nhập các phần tử và in ra màn hình + tìm và in ra màn hình giá trị lớn nhất trong dãy số vừa nhập +tìm và in ra màn hình giá trị nhỏ nhất trong dãy số vừa nhập
uses crt;
var a: array[1..100] of longint;
i,n,max,min: longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': ');
readln(a[i]);
end;
max:=a[1]; min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat trong mang la: ',max);
write('So nho nhat trong mang la: ',min);
readln
end.
viết chương trình nhập vào một dãy số nguyên n phần tử, n nhập từ bàn phím.
a) In ra màn hình dãy số vừa nhập xếp theo thứ tự tăng dần.
b) In ra màn hình các số nguyên tố trong dãy số vừa nhập và đếm xem đã nhập vào bao nhiêu số nguyên tố.
Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N<=100). Các phần tử của dãy số là các số nguyên (với n là số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.
a. In ra màn hình giá trị của các phần tử vừa nhập
Tính tổng các số vừa nhập và in kết quả ra màn hình
Var a:array[1..100] of integer;
i,n:integer;
s:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
s:=s+a[i];
End;
Write('Cac phan tu vua nhap la ');
For i:=1 to n do
Write(a[i]:8);
Writeln;
Write('Tong cua chung la ',s);
Readln
End.
Câu 1 : Viết chương trình nhập vào dãy số gồm n phần tử. Tính và in ra màn hình tổng các số chẵn, các số lẻ của dãy vừa nhập
program TongChanLe;
var
n,i, chans, les: integer; a: array[1..100] of integer;
begin
chans := 0;
les := 0;
write('Nhap n: ');
readln(n);
for i:=1 to n do
begin
write('Nhap so thu ', i, ': ');
readln(a[i]);
if a[i] mod 2 = 0 then
chans := chans + a[i]
else
les := les + a[i];
end;
writeln('Tong cac so chan la: ', chans);
writeln('Tong cac so le la: ', les);
readln;
end.