j=12

Bạn viết rõ lại đề bài là của một lượng số bao nhiêu hay là số lượng số được nhập từ máy tính

D

bạn xem lại đề bài đi nhé thường nó sẽ không ra số lẻ như thế đâu

Có gì không hiểu bạn có thể liên hệ qua Facebook sau nhé:

Dương Trí Dũng

(Trường THCS Đoàn Thị Điểm, tỉnh Hưng Yên)

uses crt;
var 
 n, i, sum, min: integer;
 a:array [1..100] of integer;
begin
  clrscr;
  writeln ('Nhap so luong phan tu:');
  readln (n);
  if (n>0) then
     {Nhap mang}
     for i:=1 to n do
      begin
        write ('a[',i,']=');
        readln (a[i]);
      end;
     {Xuat mang}
     for i:=1 to n do
      begin
        write (a[i], ' ');
      end;
      readln ();
     {Tim Min}
     begin
      min:=a[1];
      for i:=1 to n do
       begin
         if (min > a[i]) then min:=a[i];
       end;
      writeln ('Min:',min);
     end;
     {Tinh Tong cac so le chia het cho 3}
     for i:=1 to n do
      begin
        if (a[i] mod 2 = 0) then
         sum:=sum+0
         else
          if (a[i] mod 3 = 0) then
           sum:=sum+a[i];
      end;
     writeln ('Tong cac so le chia het cho 3:', sum);
     readln();
end.

bạn học ngôn ngữ lập trình j vậy

Cái đó là giải hệ bạn nhé

Nếu bạn chưa học bấm máy tính thì bạn tính như này nhé

x+y=0.1

=> 78x+78y=7.8

(137-78)*x=10.75-7.8

59*x=2.95

=> x=0.05