Những câu hỏi liên quan
haductrung
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 3 2022 lúc 9:08

uses crt;

var a:array[1..50]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);

readln;

end.

Bình luận (0)
Tích Nguyệt
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 3 2022 lúc 16:22

uses crt;

var a:array[1..50]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);

readln;

end.

Bình luận (0)
quocviet2808
Xem chi tiết
Kiều Vũ Linh
12 tháng 5 2023 lúc 7:55

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

i,n,max,t,d:integer;

s:longint;

tb:real;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

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

s:=s+a[i];

End;

tb:=s/n;

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

For i:=1 to n do 

Write(a[i]:8);

writeln;

writeln('Trung binh cong cua day la ',tb:10:2);

Write('Cac so la boi cua 3 la ');

For i:=1 to n do

if a[i] mod 3 = 0 then write(a[i]:8);

writeln;

write('Cac so le la boi cua 5 la ');

for i:=1 to n do

if (a[i] mod 2 <> 0) and (a[i] mod 5 = 0) then

write(a[i]:8);

Writeln;

max:=a[1];

for i:=1 to n do

if a[i] > max then

begin

max:=a[i];

d:=i;

End;

Writeln('So lon nhat la ',max);

t:=a[1];

a[1]:=max;

a[d]:=t;

Write('Day sau khi dem so lon nhat ra truoc ');

For i:=1 to n do

write(a[i]:8)

writeln;

tb:=(a[8] + a[10])/2);

Write(Trung binh cong cua so thu 8 va thu 10 la ',tb:10:2);

Readln

End.

Bình luận (0)
phuongtra pham
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 11 2021 lúc 0:08

uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

writeln(a+b:4:1);

readln;

end.

Bình luận (0)
Nhung
23 tháng 5 2022 lúc 12:03

program b1;

uses crt;

var a,b,s:real;

begin

clrscr;

writeln('Nhap hai so a va b: ');

readln(a,b);

s:=a+b;

write('Tong cua hai so a va b la: ',s:1:1);

readln;

end.

 

P/S: phần lưu lẫn đặt tên người dùng nào cũng đều làm được.
+ Chọn Save as ở phần File phía góc trái trên cùng rồi đặt tên.

Bình luận (0)
Dấu tên
Xem chi tiết
Dấu tên
28 tháng 11 2021 lúc 7:26

Giups mình nhanh vs

 

Bình luận (0)
bí mật
Xem chi tiết
nguyenkhanhvy
Xem chi tiết
Light Stars
Xem chi tiết
Đoàn Khánh Chi
Xem chi tiết
Đỗ Thanh Tuyến
6 tháng 5 2021 lúc 23:54

1. uses crt;
var a,vt:array[1..100]of integer;
n,i,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>=0;
end;
t:=0;
for i:=1 to n do
begin
if t<100 then
begin
t:=t+a[i];
dem:=dem+1;
vt[dem]:=i;
end;
end;
writeln(vt[dem]);
readln;
end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:19

Câu 2: 

uses crt;

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

i,n,kt:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

kt:=0;

for i:=1 to n-1 do 

if a[i]>=a[j] then kt:=1;

if kt=0 then writeln('Day la day so khong giam')

else writeln('Day khong la day so khong giam');

readln;

end.

Bình luận (0)
võ nguyên đức anh
12 tháng 4 2023 lúc 20:27

hi

Bình luận (0)