Câu 1. Viết các câu lệnh theo yêu cầu:
a) Sử dụng câu lệnh lặp in ra màn hình 50 dấu *.
b) Khai tên báo biến mảng A, với chỉ số đầu là 1, chỉ số cuối là 20, kiểu dữ liệu số nguyên
Câu 2. Viết chương trình dùng để tìm giá trị nhỏ nhất trong 10 phần tử số nguyên nhập từ bàn phím.
( giúp mình với ạ)
Câu 1:
a) for i:=1 to 50 do write(‘*’);
b) var A:array[1..20] of integer;
Câu 2:
program ct;
uses crt;
var A:array[1..10] of integer;
i,m:integer;
begin clrscr;
for i:=1 to 10 do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);
end;
m:=A[1];
for i:=1 to 10 do
if A[i]<m then m:=A[i];
writeln(‘Gia tri nho nhat la: ‘,m);
readln;
end.
Học tốt!
câu 1:
a) for i:=1 to 50 do writeln(‘*’);
b) var A:array[1..20] of integer;
câu 2:
program ct;
uses crt;
var Min,i:integer;
A:array[1..10] of integer;
begin
clrscr;
for i:=1 to 10 do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
Min:=A[1];
for i:=2 to 10 do
if Min>A[i] then Min:=A[i];
writeln(‘gia tri nho nhat la:’,Min);
readln
end.