Viết câu lệnh in ra giá trị vừa nhập biến mảng ra màn hình
Hưỡng dẫn
For i:= 1 to n do write (tb[i]) ;
Để in ra màn hình giá trị từ một đến 10 của biến điểm y, ta sử dụng câu lệnh: a for I :=1 to 10 writeln (‘I’) b for I:= 1 to 10 do writeln (I ); c for I: = 1 to n do writeln ( I ) ; d for I: = 10 downto 1 do write (I);
viết câu lệnh nhập giá trị biến mảng gồm 20 phân tử và in ra màn hình mảng gồm 20 phân tử đó?
program b1;
uses crt;
var i,n: integer; a:array[1..20] of integer;
begin
clrscr;
for i:=1 to 20 do
begin
write('a[',i,']='); readln(a[i]);
end;
write('Cac phan tu la:');
for i:=1 to 20 do
write(a[i], ' ');
readln;
end.
Tham khảo!
Để nhập dữ liệu cho mảng a gồm 100 phần tử ra màn hình ta dùng câu lệnh: *
A.For i:= 1 to 100 do writeln(a[i]);
B For i:= 1 to 100 do readln(a[i]);
Viết chương trình nhập biến mảng M gồm 100 phần tử thuộc kiểu số nguyên +nhập các phần tử và in ra màn hình + tìm và in ra màn hình giá trị lớn nhất trong dãy số vừa nhập +tìm và in ra màn hình giá trị nhỏ nhất trong dãy số vừa nhập
uses crt;
var a: array[1..100] of longint;
i,n,max,min: longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': ');
readln(a[i]);
end;
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('So lon nhat trong mang la: ',max);
write('So nho nhat trong mang la: ',min);
readln
end.
Để in một mảng điểm gồm 10 phần tử ra màn hình ta dùng câu lệnh: *
For i:= 1 to 10 do writeln(diem[i]);
For i:= 1 to 10 do readln(diem[i]);
In ra màn hình -> dùng lệnh write hoặc writeln
-> For i:=1 to 10 do writeln(diem[i]);
Viết ct khai báo biến mảng nhập số N nhập giá trị, tính tổng các số lớn hơn 10 có trong dãy in kết quả
Hưỡng dẫn
Var I, n: integer;
A:array [1.. 100] of integer;
For i:= 1 to n do
Tổng=0
For i:= 1 to n do
If m[i] >10 then
Tổng:= tong + m[i]
For i:= 1 to n do
Mình làm ở đây
https://pastebin.com/0SYGG2Re
Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 7, 2, 6. Khi thực hiện câu lệnh sau: tb := 0; For i := 1 to 5 do tb := tb + A[i]; Giá trị của biến tb là bao nhiêu?
A. 20
B. 18
C. 21
D. 22
Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 7, 2, 6. Khi thực hiện câu lệnh sau: tb:= 0; For i:= 1 to 5 do tb := tb + A[i]; Giá trị của biến tb là bao nhiêu?
A. 20
B. 18
C. 21
D. 22
Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 7, 2, 6. Khi thực hiện câu lệnh sau:
tb:= 0;
For i:= 1 to 5 do tb := tb + A[i];
Giá trị của biến tb là bao nhiêu?
A. 20;
B. 18;
C. 21;
D. 22;