1/

uses crt;

var n,i,tong:integer;

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

begin

clrscr;

write('nhap so phan tu cua day:');readln(n);

write('nhap cac phan tu cua day:');

for i:=1 to n do

begin

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

end;

tong:=0;

for i:=1 to n do tong:=tong+a[i];

write('tong cua day so nguyen vua nhap la:',tong);

readln;

end.

2/

uses crt;

var i,dem:integer;

a:array[1..50] of integer;

begin

clrscr;

for i:=1 to 50 do

begin

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

end;

dem:=0;

for i:=1 to 50 do

if a[i] mod 2<>0 then dem:=dem+1;

write('co ',dem,' so le trong 50 so vua nhap');

readln;

end.

*cái này cũng z nhé

1/

uses crt;

var i,tong:integer;

a:array[1..50] of integer;

begin

clrscr;

for i:=1 to 50 do

begin

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

end;

tong:=0;

for i:=1 to 50 do tong:=tong+a[i];

write('tong la:',tong);

readln;

end.

*ở đây bạn k ns là số nguyên hay số thực nên mk làm số nguyên, nếu số thực thì bạn sửa khai báo lại nha

k thấy j hết bn ơi

uses crt;

var i,min:integer;

dtb:array[1..10] of real;

begin

clrscr;

writeln('nhap dtb cua 10 ban trong lop:');

for i:=1 to 10 do

begin

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

end;

min:=1;

for i:=2 to 10 do

if dtb[i]<dtb[min] then min:=i;

write('ban co diem trung binh thap nhat la ban thu:',min,' dtb la:', dtb[min]:2:1);

readln;

end.