Những câu hỏi liên quan
Nguyễn Minh Thiên
Xem chi tiết
Kiều Vũ Linh
2 tháng 5 2023 lúc 8:47

Var a:array[1..35] of real;

i:integer;

Begin

For i:=1 to 35 do

Begin

Write('Nhap diem thu ',i);readln(a[i]);

End;

write('Diem vua nhap la ');

For i:=1 to 35 do write(a[i]:10:2);

Writeln;

write('Cac diem duoi 5 hoac >  la ');

For i:=1 to 35 do

If (a[i]>9) or (a[i]<5) then write(a[i]:10:2)

Readln

End.

Bình luận (0)
quân nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 4 2022 lúc 21:42

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;

}

Bình luận (1)
Lê Nguyễn Ánh Nguyệt
Xem chi tiết
MinhHieu20999
26 tháng 4 2023 lúc 21:08

 

program sodiemcaonhat; var i,max,n:integer; a:array [1..10000] of integer; begin write('nhap so phan muon nhap='); read(n); for i:=1 to n do begin write('diem thu',i,'='); read(a[i]); end; max:=a[1]; for i:=1 to n do begin if max < a[i] then max:=a[i]; end; write('so diem cao nhat la=',max); readln end.

 

Bình luận (0)
MinhHieu20999
26 tháng 4 2023 lúc 21:09

program sodiemcaonhat;
var i,max,n:integer;
a:array [1..10000] of integer;
begin
write('nhap so phan muon nhap='); read(n);
for i:=1 to n do begin
write('diem thu',i,'='); read(a[i]);
end;
max:=a[1];
for i:=1 to n do begin
if max < a[i] then max:=a[i];
end;
write('so diem cao nhat la=',max);
readln
end.

Bình luận (0)
Nguyễn ngọc quang tri
Xem chi tiết
Nguyễn Đăng Nhân
5 tháng 4 2023 lúc 19:31

Đây là chương trình mình viết bằng ngôn ngữ C++, mình sử dụng biến mảng a đánh số từ 0 tới 45. Khi in ra màn hình thì số điểm của mỗi học sinh sẽ viết trên mỗi dòng.
CODE:

#include <iostream>

using namespace std;
int a[45];
int main()
{
    for(int i=0;i<45;i++){
        cin>>a[i];
    }
    for(int i:a){cout<<i<<endl;}
    return 0;
 

Bình luận (0)
nguyensonbd
Xem chi tiết
Bùi Anh Tuấn
28 tháng 4 2021 lúc 19:53

nếu chạy ct mà nó không dừng lại thì bấm alt+F5 nhá

Bình luận (1)
Lê Nguyễn Ánh Nguyệt
Xem chi tiết
Ngô Bá Hùng
25 tháng 4 2023 lúc 23:32

program DiemKiemTra;
var
  i, max: integer;
  diem: array[1..30] of integer; 

begin
  for i := 1 to 30 do
  begin
    writeln('Nhap diem cua hs thu ', i, ': ');
    readln(diem[i]);
  end;
  max := diem[1];
  for i := 2 to 30 do
  begin
    if diem[i] > max then
      max := diem[i];
  end;
  writeln('Diem cao nhat la: ', max);
end.

Bình luận (0)
Benny
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 3 2023 lúc 14:55

6:

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,A[100],i,dem=0;

cin>>n;

for (int i=1; i<=n; i++) cin>>A[i];

for (int i=1;i<=n; i++)

if (A[i]%2!=0) dem++;

cout<<dem;

return 0;

}

5:

#include <bits/stdc++.h>

using namespace std;

int main()

{

long long n,nn=1e6,A[1000];

cin>>n;

for (int i=1; i<=n; i++) cin>>A[i];

for (int i=1; i<=n; i++)

nn=min(nn,A[i]);

for (int i=1; i<=n; i++)

if (nn==A[i]) cout<<i<<" ";

return 0;

}

Bình luận (0)
Thuytram301
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:02

uses crt;

var a:array[1..100]of real;

i,n: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 

  writeln('Diem cua ban thu ',i,' la: ',a[i]:4:2);

readln;

end. 

Bình luận (1)
Thế anh lã
Xem chi tiết
Kiều Vũ Linh
8 tháng 5 2023 lúc 8:13

Var a:array:[1..1000] of real;

i,m:integer;

Begin

Write('m = ');readln(m);

For i:=1 to m do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Write('Cac diem vua nhap la: ');

For i:=1 to m do 

Write(a[i]:10:2);

Readln

End.

Bình luận (0)