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
eoiqd123
Xem chi tiết
eoiqd123
Xem chi tiết
ẩn danh
Xem chi tiết
Phạm Linh Chi
Xem chi tiết
Luu Khanh Linh
1 tháng 7 2015 lúc 7:59

xin chào kết bạn nhé

Võ Thị Thanh Trúc
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 13:30

uses crt;

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

n,i,t,max,min: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] mod 3=0 then t:=t+a[i];

writeln('Tong cac so la boi cua 3 la: ',t);

max:=a[1];

min:=a[1];

for i:=1 to n do 

begin

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

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

end;

writeln('Gia tri lon nhat la: ',max);

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

readln;

end.

phút tony
Xem chi tiết
Trường Phan
26 tháng 12 2021 lúc 10:05

a/ =SUM(A1:A5)=29

    =SUM(A1,A2,A3,A4,A5)=29

b/ =MAX(A1:A5)=9

     =MAX(A1,A2,A3,A4,A5)=9

phút tony
26 tháng 12 2021 lúc 10:01

giúp mik với

Trường Phan
26 tháng 12 2021 lúc 10:51

uk đúng đấy bạn

anh vương
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 5 2022 lúc 21:58

uses crt;

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

i,n,t,ln,nn:integer;

begin

clrscr;

readln(n);

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

t:=0;

for i:=1 to n do

  if a[i]>0 then t:=t+a[i];

ln:=a[1];

nn:=a[1];

for i:=1 to n do 

begin

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

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

end;

writeln(t);

writeln(ln);

writeln(nn);

readln;

end.

Phùng Phúc An
Xem chi tiết
Nguyen Linh Nhi
Xem chi tiết