1)viết 3 câu lệnh khai báo biến mảng kiểu nguyên và kiểu thực với số phần tử lần lượt là 50,100,150.
2)viết chương trình nhập xuất một mảng số nguyên có n phần tử (n nhập từ bàn phím )
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
4 tháng 5 2021
uses crt;
var b:array[1..25]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
readln;
end.
NB
25 tháng 4 2023
program TinhTongPhanTuMang;
var
i, tong: integer;
m: array[1..50] of integer;
begin
for i := 1 to 50 do
begin
writeln('Nhap ptu thu ', i, ': ');
readln(m[i]);
end;
tong := 0;
for i := 1 to 50 do
begin
tong := tong + m[i];
end;
writeln('Tong cac ptu trong mang la: ', tong);
writeln('Cac ptu trong mang la:');
for i := 1 to 50 do
begin
writeln(m[i]);
end;
end.
NA
Nguyễn An Ninh
VIP
15 tháng 5 2023
'''python
a. DTB = []
siso = int(input("Nhập số lượng học sinh trong lớp: "))
b. for i in range(siso):
diem = float(input(f"Nhập điểm của học sinh thứ {i+1}: "))
DTB.append(diem)
c. tong=sum(DTB)
d. print(f"Tổng điểm của lớp là: {tong}")'''
14 tháng 3 2022
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
t=0;
for (i=1; i<=n; i++) t+=a[i];
cout<<t;
return 0;
}
23 tháng 12 2020
Câu 1:
uses crt;
var a:array[1..500]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;
t:=0;
for i:=1 to n do
if (a[i]<0) and (a[i] mod 7=0) then t:=t+a[i];
writeln('Tong cac so am chia het cho 7 la: ',t);
readln;
end.
Câu 2:
uses crt;
var c,a:array[1..10]of integer;
i,kt,j,dem:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('C[',i,']='); readln(c[i]);
end;
dem:=0;
for i:=1 to 10 do
if c[i]>1 then
begin
kt:=0;
for j:=2 to c[i]-1 do
if c[i] mod j=0 then kt:=1;
if kt=0 then
begin
inc(dem);
a[dem]:=c[i];
end;
end;
if dem=0 then writeln('Trong day khong co so nguyen to')
else begin
writeln('Cac so nguyen to trong day la: ');
for i:=1 to dem do
write(a[i]:4);
end;
readln;
end.
Câu 3:
uses crt;
var d:array[1..200]of integer;
i,k,dem:integer;
begin
clrscr;
write('Nhap k='); readln(k);
for i:=1 to k do
begin
write('D[',i,']='); readln(d[i]);
end;
dem:=0;
for i:=1 to k do
if (a[i] mod 2=0) and (a[i]>=10) then inc(dem);
writeln('So phan tu chan co 2 chu so la: ',dem);
readln;
end.
26 tháng 4 2021
Câu 1:
uses crt;
var a:array[1..100]of real;
i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t:4:2);
readln;
end.
26 tháng 4 2021
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=1;
for i:=1 to n do
t:=t*a[i];
writeln(t:4:2);
readln;
end.
KV
8 tháng 5 2023
Var a:array:[1..50] of integer;
i:integer;
s:longint;
Begin
For i:=1 to 50 do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
If a[i] mod 2 <> 0 then
s:=s+a[i];
End;
Write('Tong cac so le la: ',s);
Readln
End.
Câu 2:
Program hotrotinhoc;
var a: array[1..32000] of integer;
i,n: integer;
begin
write('Nhap so phan tu : '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('Mang vua nhap la : ');
for i:=1 to n do write(a[i],' ');
readln
end.
Câu 1:
var a: array[1..50] of integer;
var b: array[1..50] of real;
var c: array[1..100] of integer;
var d: array[1..100] of real;
var e: array[1..150] of integer;
var f: array[1..150] of integer;