Program HOC24;

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

i,n: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

t:=0;

for i:=1 to n do 

begin

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

if a[i] mod 2=1 then t:=t+a[i];

end;

write('Tong cac so le trong mang la: ',t);

readln

end.

Giúp em với mọi người :((

C mk làm pascal à 

câu lệnh giống nhau

  thuật toán cứ chạy từ 1 đến n xét mỗi phần tử nếu a[i] mod 2 =0 thì lưu vào 1 mảng ngược lại lưu vàng mảng khác đến cuối gọi ra

uses crt;

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

i,n,t,min,vt:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

t:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then t:=t+a[i];

writeln('Tong cac so chia het cho 3 la: ',t);

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

vt:=1;

for i:=1 to n do 

  if min=a[i] then 

begin

if vt<i then vt:=i;

end;

writeln('Gia tri nho nhat la: ',min);

writeln('Vi tri la: ',vt);

readln;

end. 

1:

uses crt;

var a:array[1..100,1..100]of integer;

i,n,j,m,max,min:integer;

begin

clrscr;

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

write('Nhap m='); readln(m);

for i:=1 to n do 

for j:=1 to m do 

begin

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

end;

for i:=1 to n do 

begin

for j:=1 to m do 

  write(a[i,j]:4);

writeln;

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

  for j:=1 to m do 

begin

if max<a[i,j] then max:=a[i,j];

if min>a[i,j] then min:=a[i,j];

end;

writeln('Gia tri lon nhat la: ',max);

writeln('Gia tri nho nhat la: ',min);

readln;

end.

Giống nhau: Đều là hai kiểu dữ liệu có thể chứa được nhiều dữ liệu

program bai_tap;

uses crt;

var c:array[1..100]of integer;

m,i,dem:integer;

begin

clrscr;

write('nhap so m:');readln(m);

while m>100 do writeln('ban hay nhap lai:');

dem:=0;

for i:=1 to m do

begin

write('nhap phan tu c[',i,']:');readln(c[i]);

end;

for i:=1 to m do 

if (c[i] mod 2=0)and(c[i] mod 5=0) then dem:=dem+1;

write(dem);

readln;

end.

ghi hết đề ra đi bạn ơi!

function chia(x,y:integer):real;

begin

if y<>0 then chia:=x/y

else break;

end;

Uses Crt;

Var St:String;

dem: Array[‘A’..’Z’] Of Byte;

i:Byte;

ch:Char;

Begin

Write(‘Nhap xau St: ‘); Readln(St);

{Khởi tạo mảng}

For ch:=’A’ To ‘Z’ Do dem[ch]:=0;

{Duyệt xâu}

For i:=1 To Length(St) Do

If Upcase(St[i]) IN [‘A’..’Z’] Then Inc(dem[Upcase(St[i])]);

{Liệt kê các ký tự ra màn hình}

For ch:=’A’ To ‘Z’ Do

If dem[ch]>0 Then Writeln(ch,’ : ’,dem[ch]);

Readln;

uses crt;

var st:string;

begin

clrscr;

write('Nhap xau:'); readln(st);

writeln(length(st));

readln;

end.