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ử
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
Lời giải 1 :
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.
Thảo luận
Lời giải 2 :
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.
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK