uses crt;

var n,i,dem: integer;

tb: real;

A:array[1..1000] of integer;

writeln('Nhap do dai day: '); read(n);

writeln('Nhap cac phan tu cua day: ');

for i:=1 to n do

begin

writeln('a[',i,']='); read(a[i]);

end;

tb:=0;

for i :=1 to n do

begin tb:=tb+a[i]; dem:=dem+1; end;

tb:=tb/dem;

writeln('Gia tri Tb la: ',tb);

readln

@Lê Minh Vy:

-Sau dòng lệnh thứ 4 là lệnh Begin: dùng để chia giữa phần khai báo và phần thân và cuối chương trình thiếu lệnh end. để kết thúc chương trình.

-Lệnh nhập là readln không phải read: + dòng thứ 5 của bạn phải là readln(n); + dòng thứ 9 là readln(a[i]);

- Dòng 11,12,13 có thể gộp lên ở phần trên để đỡ chạy vòng for, rườm rà nhé :))

- Đề bài :viết chương trình sử dụng biến mảng để tính giá trị trung bình của n số nguyên được nhập từ bàn phím "và in ra dãy số nguyên đó" nên cuối bài, trước readln end. cần thêm lệnh

for i:=1 to n do write('day so nguyen la' a[i],' '); hoặc có thể bỏ ở vòng for ở trên gộp lại cũng được.

Program Tinh_tong ; 

Uses Crt;

Var i ,S: integer ; 

Begin

S: = 0 i;=0 ;

While  < 51 do begin 

                                       i : = i + 1 ;  

                                       S: = S + i ;

                                   end ;

 Write ('Tong la',S);

End. 

Trong câu lệnh lặp kiểu dữ liệu kiểu dữ liệu của biến đếm là :

A, Real 

B, String 

C, If 

D,Var 

Đáp án:

B.String

Hok tốt

có thể bằng 2, 1 và 11

bằng 1 vì 1 giọt nước cộng 1 giọt nữa thì vẫn là 1  giọt

còn bằng 11 vì 1 thêm một số 1 nữa là 11

1+1=2

hok tốt

có hậu

mk sẽ lấy 3 câu trả lời nhanh nhất   sẽ đc mk k nha m.n

program tongduong;

uses crt;

var a:array[1..100] of integer;n,i,s:integer;

begin

clrscr;

s:=0;

writeln('nhap do dai cua day');readln(n);

for i:=1 to n do begin writeln('a[',i,']= ');readln(a[i]); end;

for i:=1 to n do if a[i] mod 2 = 0 then s:=s+a[i];

write(' Tong cac so duong trong day la',s);

readln

end.

Bạn the pie mới có lệnh nhập độ dài của dãy còn chưa có lệnh nhập các phần tử trong dãy nhé :)))

uses crt;

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

i,n,t,dem:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<250);

hello

Có 3 vòng lặp

Giá trị cuối cùng của s=2

k cho mk nha

Màn hình sẽ in ra giá trị: 3 7

Giải thích:

Câu lệnh if i mod 3=0 then j:=j+1 có nghĩa là j bằng một cộng với số các số chia hết cho 3.

k:=k+j có nghĩa là k bằng bốn cộng với giá trị của j đã tìm.

For i:=1 to 5 do => có 5 vòng lặp, các vòng sẽ có gtri j,k tương ứng là:

vòng 1: 4,7

vòng 2: 6,13

vòng 3:8,21

vòng 4: 10,31

vòng 5: 12;43

Vậy writeln(j,k)  sẽ in ra 12 43. Ở đây vòng lặp không có điều kiện trước đó nên không cần xét nhé!

vì câu lệnh \(for\text{ }i:=\text{ 4 }to\text{ 10}\) nên vòng lặp trên lặp \(10-4+1=7\)lần

mỗi vòng lặp đều tăng  j thêm 2 đơn vị \(\left(j:=j+2\right)\)nên sau khi kết thúc

giá trị của j là\(j=0+2\times7=14\)

khoanh B