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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
PL
2
GB
7 tháng 5 2023
program NhapMang;
var
mang: array of integer;
n, i: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
setlength(mang, n);
writeln('Nhap cac phan tu cua mang:');
for i := 0 to n-1 do
begin
readln(mang[i]);
end;
writeln('Mang vua nhap la:');
for i := 0 to n-1 do
begin
write(mang[i], ' ');
end;
readln;
end.
7 tháng 5 2023
program NhapMang;
const
MAXSIZE = 100;
var
a: array[1..MAXSIZE] of integer;
n, i: integer;
begin
write('Nhap so luong phan tu cua mang: ');
readln(n);
for i := 1 to n do
begin
write('a[', i, '] = ');
readln(a[i]);
end;
writeln('Mang vua nhap la:');
for i := 1 to n do
write(a[i], ' ');
end.
28 tháng 2 2022
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
writeln('Phan tu thu hai la: ',a[2]);
readln;
end.
15 tháng 1 2022
#include <bits/stdc++.h>
using namespace std;
double a[1000];
int i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=n; i>=1; i--)
if (a[i]>0)
{
cout<<i<<" ";
return 0;
}
cout<<"Khong co so am trong day";
return 0;
}
30 tháng 4 2022
a:
#include <bits/stdc++.h>
using namespace std;
double a[1000];
int n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
b:
#include <bits/stdc++.h>
using namespace std;
long long a[50],n,i,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
t=0;
for (i=1; i<=n; i++) t+=a[i];
cout<<t;
return 0;
}
QN
30 tháng 4 2022
bạn có thể nào làm cho mình phần b làm theo kiểu lớp 8 đc không chứ nhìn như này mik ko hiểu
HU
1
5 tháng 4 2023
program DemSoDiem;
var n, i: integer;
diem: array[1..100] of integer; // khai báo mảng điểm
begin
write('Nhap so luong hoc sinh: ');
readln(n);
// Nhập điểm cho từng học sinh
for i := 1 to n do begin
write('Nhap diem cua hoc sinh thu ', i, ': ');
readln(diem[i]);
end;
// In ra số điểm dưới dạng Pascal
writeln('const so_diem: array[1..', n, '] of integer = (', diem[1]);
for i := 2 to n do begin
write(', ', diem[i]);
end;
writeln(');');
end.
Bạn bổ sung thêm đề nha, thiếu đề mất rồi