Viết chương trình thực hiện các yêu cầu a, Tạo mảng số nguyên gồm 10 phần tử b, Thông báo ra màn hình các số dương c, Tính tổng phần tử có giá trị lớn hơn 5
1 câu trả lời
var a: array[1..10] of integer;
S: word;
Begin
S:=0;
For i:=1 to 10 do
Begin
Write('nhap a[',i,'] = ');
readln(a[i]);
If a[i]>5 then s:=s+5;
End;
For i:=1 to 10 do if a[i]>0
Then write(a[i], ' ');
Write('tong phan tu lon hon 5 la ', s);
Readln
End.
