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
boymezu
Xem chi tiết
Minh Lệ
3 tháng 5 2023 lúc 18:41

Program HOC24;

var i,n: integer;

t: longint;

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

begin

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];

write('Tong cac so chan la: ',t);

readln

end.

Đuc Lee
Xem chi tiết
Minh Lệ
12 tháng 5 2023 lúc 16:08

Program HOC24;

var i,n,max: integer;

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

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

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

end;

max:=a[1];

for i:=1 to n do if a[i]>max then max:=a[i];

write('So lon nhat la: ',max);

readln

end.

Cuong Ly
Xem chi tiết
Nguyễn Tuấn Anh
4 tháng 5 2021 lúc 9:36

Var z:array[1..1000] of longint;

n, i, max:longint;

Begin

Readln(n);

For i:=1 to n do begin writeln('s',i,'=');

Readln(z[i]);

max:= z[1];

End;

Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 11:48

uses crt;

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

i,n,max,dem1,dem2:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

max:=a[1];

for i:=1 to n do 

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

writeln('So lon nhat la: ',max);

readln;

end.

Nguyễn Chí Thanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 6 2021 lúc 23:28

uses crt;

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

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 

  write(a[i]:4);

readln;

end.

Khang Ngo
Xem chi tiết
Khang Ngo
20 tháng 4 2023 lúc 21:18

N=int(input(‘n=’))

A=[0]*n

For I in range(0,n):

A=int(input(a[‘+str(i+1)+’]=’))

S=s+a[i]

S1 =s/n

Print(s1)

Văn Công Sỹ
Xem chi tiết
Văn Công Sỹ
25 tháng 4 2021 lúc 10:28

Làm giúp bài này nhé

 

Bùi Anh Tuấn
25 tháng 4 2021 lúc 19:41

Nguyễn Lê Phước Thịnh
25 tháng 4 2021 lúc 22:19

uses crt;

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

i,n,min,tam,j:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

min:=a[1];

for i:=1 to n do 

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

writeln('Gia tri nho nhat la: ',min);

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if a[i]<a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do write(a[i]:4);

readln;

end.

Phan Thu
Xem chi tiết
Phan Văn Thái Dương
Xem chi tiết
Huy Hoang Nguyen
Xem chi tiết
Bình000
Xem chi tiết