Viết chương trình nhập n số mguyên từ bàn phím để in ra màn hình số nhỏ nhất.Yêu cầu khai báo biến mảng A với chỉ số đầu là 1, cuối là 20, kiểu dữ liệu integer.
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
KT
10 tháng 5 2018
program bai1;
var a:array[1..100] of longint;
i,n:longint;
begin
{Thu tu hoc sinh duoc viet theo a[..]}
repeat write('N= ');
readln(n);
until n>0;
for i:=1 to n do
begin write('a[',i,']= ');
readln9a[i]);
end;
write('Diem cua ',n,' hoc sinh la ');
for i:=1 to n do write(a[i],' ');
readln
end.
2 tháng 5 2018
Ðược định nghĩa với các từ khóa sau:
| TỪ KHÓA | SỐ BYTE | PHẠM VI |
| BYTE | 1 | 0 .. 255 |
| SHORTINT | 1 | – 128 .. 127 |
| INTEGER | 2 | – 32768 .. + 32767 |
| WORD | 2 | 0 .. 65535 |
| LONGINT | 4 | – 2147483648 .. 2147483647 |
- Các phép toán số học đối với số nguyên
| KÝ HIỆU | Ý NGHĨA |
| + | Cộng |
| – | Trừ |
| * | Nhân |
| / | Chia cho kết quả là số thực |
| DIV | Chia lấy phần nguyên |
| MOD | Chia lấy phần dư |
| SUCC (n) | n + 1 |
| PRED (n) | n – 1 |
| ODD (n) | TRUE nếu n lẻ
và FALSE nếu n chẵn |
N
18 tháng 6 2022
Program tangdan;
Uses crt;
Var n,i,j,k,t:interger;
A: array[1..100] of longint;
Begin
Clrscr;
Write('Nhap do dai day: '); readln(n);
For i:= 1 to n do
Begin
Write('A[',i,']= ');
Readln(A[i]);
End;
For i:=1 to n-1 do
For j:=i+1 to n do
If A[i]>A[j] then
Begin
t:=A[i];
A[i]:=A[j];
A[j]:=t;
End;
Write('Day sau khi duoc sap xep theo thu tu tang dan la: ',A[i]:3);
End.
18 tháng 12 2018
program mang;
uses crt;
var
a: array[1..100] of integer
i,n:integer;
begin
clrscr;
write('nhap so phan tu n=');readln(n);
for i:=1 to n do
begin
write('nhap phan tu thu ',i');readln(a[i]);
end;
for i:=1 to n do
if a[i]>0 then write(a[i]);
readln;
end.
17 tháng 3 2019
const
nhap='bai1.inp';
xuat='bai1.out';
var n,m,u,d:int64;
begin
assign(input,nhap);reset(input);
assign(output,xuat);rewrite(output);
read(n);
while n<>0 do
begin
m:=n mod 10;
n:=n div 10;
if (m=1) or (m=2) or (m=3) or (m=5) or
(m=7) then d:=0;
if (m=0) or (m=4) or (m=6) or (m=9)
then d:=1;
if m=8 then d:=2;
u:=u+d;
end;
writeln(u);
close(input);close(output);
end.
P
1 tháng 5 2018
1)
Var i, T: longint;
Begin
T:=0; i:=0;
While T<=100 do begini:=i+1;
T:= T+i;
End;
Writeln('Tong la ',T);
End.
2)
Var a: array[1..100] or real;
i,n: longint;
Begin
Readln(n);
Readln(a[i]);
For i:=1 to n do begin writeln('Diem la',i,'=',a[i]:8:2);
End;
Readln;
End.
- Tớ chưa chạy thử nên không biết đã đúng chưa. Cậu kiểm tra lại nhé!
TQ
1 tháng 5 2018
2.
Program trung_binh;
Uses crt;
Var n, i : integer;
Diem : array[1..50] of real;
Begin
Clrscr;
Write(‘Nhap so luong hoc sinh N = ‘); Readln(n);
Writeln(‘Nhap diem cho tung hoc sinh’);
For i := 1 to n do
Begin
Write(‘Diem HS ‘,i,’ = ‘); readln(Diem[i]);
End;
For i : = 1 to n do
Writeln(‘Diem cua HS ‘,i, ‘ = ‘,diem[i]);
Readln;
End.