1.viết chương trình pascal nhập n phần tử của mảng từ bàn phím
B) tìm giá trị lớn nhất ,nhỏ nhất của mảng ( câu này mình làm rồi ạ)
A) nhập và in ra phần tử của mảng( câu này mình cx làm rồi ạ)
C) tính tổng các số chẵn ,lẻ của mảng
–> bài nâng cao mình cần giúp
2.viết chương trình pascal tính tổng của n số tự nhiên
Hi vọng nhập được bài tại mình nhập vài lần ko ra
1.viết chương trình pascal nhập n phần tử của mảng từ bàn phím B) tìm giá trị lớn nhất ,nhỏ nhất của mảng ( câu này mình làm rồi ạ) A) nhập và in ra
By Rylee
c ) for i:= 1 to n do
if a[i] mod 2 = 0 then s:=s+a[i];
writeln(‘tong cac phan tu chan: ‘,s);
for i:= 1 to n do
if a[i] mod 2 = 1 then b:=b+a[i];
witeln(‘tong cac phan tu le: ‘,b);
readln;
end.
2.
program vct;
uses crt;
var i,n:integer;
begin clrscr;
writeln(‘nhap so nguyen’); readln(n);
for i:= 1 to n do
s:=s+i;
writeln(‘tong cac so nguyen: ‘,s);
readln;
end.
var n,i,k,j,s,min,s1:longint;
a:array [1..100] of integer;
begin
write(‘nhap n pt’);readln(n); min:=100000;
for i:=1 to n do
begin
write(‘pt thu’,i);readln(a[i]);
if a[i]<min then a[i]:=min;
if a[i] mod =0 then s:=s+a[i]
else s1:=s1+a[i];
end;
write(minx);
write(‘tong chan’,s);
write(‘tong le’,s1);
readln
end.