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ươn

hmai96063

2 năm trước

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

Loga Sinh Học lớp 12

0 lượt thích 17 xem

1 trả lời

Thích Trả lời

quocnghia64

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.

Vote (0) Phản hồi (0) 2 năm trước

1780686788751848

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.

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.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Viết PTHH biểu diễn dãy tiến hóa sau a) S->So2->H2So3 b) Ca->CaO->Ca(OH)2

viết bài nghị luận nêu tác dụng của việc đọc sách

Nguyên nhân của bệnh bướu cổ,bazađô và tiểu đường

Vote 5 sao ctlhn và tym Cô chỉ cho câu hỏi trách nghiệm ko cho đáp án nên câu nào ko biết thì lấy Ví dụ ạ (Trách nghiệm nên làm ngắn gọn thôi nhé❤)

nêu cac bien phap phong chong dich covid19

Cho 6, 72 lít hỗn hợp gồm CH4 và C2H2 tác dụng vừa đủ với 200 ml đ Br2 . Viết PTHH, tính phần trăm thể tích và khối lượng cảu mỗi chất trg hỗn hợp

tổng độ dài 3 cạnh của ba mảnh đất là 84m. cạnh mảnh đất thứ nhất ngắn hơn cạnh mảnh đất thứ hai là 12,6m. cạnh mảnh đất thứ ba bằng 2/3 tổng độ dài 2 cạnh của mảnh thứ nhất và mảnh thứ hai. tìm diện tích mảnh đất thứ nhất.

so sánh.1/2+1/2²+1/2³+...+1/2²⁰ và B -212121/-202020

Giúp mk vs ạ Tìm đa thức biết a) M-(x²y-1)=-2x³ +x²y+1 b)3x²+3xy- x³-M=3x²+2xy-4y²

Giúp tui giải bài với chỉ cần ghi đáp án thôi