pascal help em

admin

cau 3
viet chuong trinh nhap vao 1 mang mot chieu gom n cac so nguyen (n nhap tu ban phim). Cho biet co bao nhieu so am trong day va tinh tong cac so am do .

admin

Cau 2

Cac truong trinh sau in ra ket qua man hinh nhu the nao :
a-
VAR S, a, i: integer;
BEGIN
I:=0; a:=3; S=1;
REPEAT
S:= S + I;
I:=i+1;
UNTIL (i>a);
Write(a, S);
Readln:
END.

admin

Cau 2

Cac truong trinh sau in ra ket qua man hinh nhu the nao :
a-
VAR S, a, i: integer;
BEGIN
I:=0; a:=3; S=1;
REPEAT
S:= S + I;
I:=i+1;
UNTIL (i>a);
Write(a, S);
Readln:
END.

a=3
s=7

admin

@ Câu II e nghĩ a= 3, s= 7 chứ anh

admin

cau 2 b tiep

VAR i,j,n: integer;
a: array[1..50,1..50] of integer;
BEGIN
n:=2;
FOR i:=0 TO n-1 DO
FOR j:=i+1 TO n DO
BEGIN
a[i,j] := i+j;
write(a[i,j]);
END;
Readln;
ẸND