pascal đúng ko bạn

đúng rồi .bạn biết làm làm giúp mk vs

Cách làm này là cách làm theo mảng nhé:

Uses crt;

var n,s:int64;

i:longint;

a:array[1..10000] of int64;

begin

clrscr;

readln(n);

for i:=1 to n do

readln(a[i]);

s:=0;

for i:=1 to n do

if a[i] mod 2 = 0 then

s:=s+a[i];

writeln('Tong so chan:',s);

s:=0;

for i:=1 to n do

if a[i] mod 2#0 then

s:=s+a[i];

writeln('Tong so le:');

readln

end.

Bài này có nghĩa là in ra tổng của 1 dãy số n lẻ hoặc chẵn VD: 1,3,5,...,n chứ không phải là mảng bạn nhé. Bài bạn cũng mắc 1 số lỗi .

Dấu # không phải là khác trong Pascal a[i] mod 2<>0 mới đúng.

Ở phần dưới bạn writeln('Tong so le :'); thì nó chỉ in ra Tong so le chữ không in kết quả.

Lời giải:

program hotrotinhoc;

var a: array[1..32000] of integer;

d,d1,i,n: integer;

begin

write('N='); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

d:=0; d1:=0;

for i:=1 to n do

begin

write(a[i],' ');

if a[i] mod 2=0 then inc(d);

if (a[i] mod 5=0) and (a[i] mod 2=0) then inc(d1);

end;

writeln('Co tat ca ',d,' so chan');

write('Co tat ca ',d1,' so chan chia het cho 5');

readln

end.

mình vẫn đổi được mà

Chắc là do chưa tải lên hẳn

giúp với ạ

đang cần gấp , giúp với ạ

Các bước chèn thêm hàng và cột :

Bước 1: Đưa con trỏ soạn thảo vào một ô trong bảng.

Bước 2: Trên dải lệnh con Layout của dải lệnh ngữ cảnh Table Tools :

Nháy Insert Above (hoặc Insert Below) để chèn một hàng vào trên (hoặc dưới) hàng chứa ô có con trỏ soạn thảo.

Nháy Insert Left (hoặc Insert Right) để chèn một cột vào bên trái (hoặc bên phải) cột chứa ô có con trỏ soạn thảo.

Chúc bạn hok tốt

-các bạn giải giúp mình mấy câu này

Cứu mình với mai mk thi rồi :((