Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Hiền Nguyễn
Xem chi tiết
Hiền Nguyễn
24 tháng 3 2021 lúc 9:08

Bạn ơi giúp mình với chiều nay mình thi rồi

 

Nguyễn Lê Phước Thịnh
24 tháng 3 2021 lúc 20:16

Câu 2: 

uses crt;

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

i,n,tb:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

tb:=0;

for i:=1 to n do 

  tb:=tb+a[i];

writeln(tb/n:4:2);

readln;

end.

nuinuini
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 10 2021 lúc 0:31

2: 

#include <bits/stdc++.h>

using namespace std;

int main()

{

string st;

int a;

cin>>st;

cin>>a;

cout<<"Xin chao "<<st<<endl;

cout<<"Nam nay "<<st<<" "<<2021-a<<" tuoi";

return 0;

}

hoa ngọc
Xem chi tiết
hoho209
Xem chi tiết
Kiều Vũ Linh
6 tháng 5 2021 lúc 9:16

Var a:array[1..100] of longint;

tb:real;

i,n:integer;

s:longint;

begin

     write('Nhap vao so luong so nguyen '); readln(n);

     s:=0;

     for i:=1 to n do

     begin

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

          s:=s+a[i];

     end;

     tb:=s/n;

     writeln('Gia tri trung binh cua mang do la ',tb:10:2);

     writeln('Cac phan tu lon hon gia tri trung binh la');

     for i:=1 to n do

     begin

          if a[i] > tb then write(a[i]:10);

     end;

readln;

end.

Vân Hải
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 19:55

uses crt;

var a:array[1..10]of integer;

i,t:integer;

begin

for i:=1 to 10 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to 10 do 

  t:=t+a[i];

writeln('Tong cua day la: ',t);

writeln('Trung binh cong cua day la: ',t/n:4:2);

readln;

end.

Thọ Lê Đức
Xem chi tiết
Kiều Vũ Linh
28 tháng 4 2023 lúc 16:09

Bài 23

var a:array[1..1000] of integer;

i,n:integer;

s,tbc:real;

begin

write('n = ');readln(n);

for i:=1 to n do

begin

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

s:=s+a[i];

end;

tbc:=s/n;

writeln('Gia tri trung binh la ',tbc:10:2);

write('Cac so lon hon gia tri trung binh la: ');

for i:=1 to n do

if a[i] > tbc then write(a[i]:8);

readln

end.

Kiều Vũ Linh
28 tháng 4 2023 lúc 16:12

var a:array[1..1000] of integer;

i,n,max:integer;

begin

write('n = ');readln(n);

for i:=1 to n do

begin

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

end;

max:=a[1];

for i:=2 to n do

if a[i] > max then max:=a[i];

for i:=1 to n do

begin

if max=a[i] then write(max,' o vi tri thu ',i);

break;

readln

end.

Tâm Phạm
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 12 2021 lúc 23:11

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n<18) cout<<"Thieu nien";

else if ((18<=n) and (n<=39)) cout<<"Thanh nien";

else if ((40<=n) and (n<=60)) cout<<"Trung nien";

else cout<<"Lao nien";

return 0;

}

Hoàng Phương Uyên Phạm
Xem chi tiết
Kiều Vũ Linh
11 tháng 5 2022 lúc 18:36

Var a:array[1..200] of integer;

i,n,s:integer;

tbc:real;

Begin

Write('Nhap so luong so n = ');readln(n);

For i:=1 to n do

Begin

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

s:=s+a[i];

End;

tbc:=s/n;

Write('Trung binh cong la ',tbc:10:2);

Readln;

End.

Vàng Phan Thanh
Xem chi tiết