Giúp em với ạ Nhập mảng 30 phần tử lần lượt nhận giá trị nguyên.viết chưởng trình tính và in ra màn hình số lượng phần tử không chia hết cho 5
2 câu trả lời
var a: array[1..30] of integer;
Begin
D:=0;
For i:=1 to 30 do
Begin
Write('a[', i, '] = '); readln(a[i]);
If a[i] mod 5 <> 0 then inc(d);
End.
Writeln('co ', d, ' so khong chia het cho 5);
For i:=1 to n do
If a[i] mod 5 <> 0 then write(a[i], ' ');
Readln
End.
Program Bt;
Var i,t : longint;
a : array [1..100] of longint;
Begin
t := 0;
For i := 1 to 30 do
Begin
repeat
Write('A[',i,']= ');Readln(A[i]);
until a[i] <> 0;
If a[i] mod 5 <> 0 THEN T := T + 1;
end;
For i := 1 to 30 do If a[i] mod 5 <> 0 THEN Write(a[i],' ; ');
Writeln;
Write('So luong phan tu khong chia het cho 5 la : ',t);
end.