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.

Câu hỏi trong lớp Xem thêm