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

Program lap; Var i: integer; Begin For i:=1 to 5 do write('a'); Readln End.

Program lap;

Var i: integer;

Begin

For i:=1 to 5 do write('A');

Readln

End.

Cho đoạn chương trình sau : For i := 1 to 10 do j:=j+2; write(j)

sau khi kết thúc đoạn chương trình trên , câu lệnh write (j ) ; được thực hiện bao nhiêu lần ?

A : 10 lần

B : 5 lần 

C : 1 lần

D :k thực hiện

Máy tính sẽ thực hiện 5 vòng lặp

Gtri của T sau 5 vòng lặp là 15

Gtri của n là 11, vì n=11 => n<10(KTMĐK) nên chương trình ngừng.

Lặp 4 vòng và T= 26

Bài 1:program sothuc;

uses crt;

var a:array[1..10] of real;s,i,j:real;

begin

s:=0;

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

for i:=1 to 10 do if a[i]<0 then

for j:=1 to 10 do

begin a[j]:=sqr(a[i]); s:=s+a[j]; end;

writeln('tong binh phuong cac so am la: ',s:2:2); readln;

end. (Khi nào mình kiểm tra chạy lại trên phần mềm rồi sửa lại nếu sai nhé)

Bài 2: 

program soduong;

uses crt;

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

begin

clrscr;

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

for i:=1 to n do begin

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

if a[i] mod 2 = 0 then s:=s+a[i] end;

writeln('tong so duong trong day la',s:2:0);readln

end.

Bài 3: các số dương mà là số lẻ là sao thế bạn????