viết chương trình nhập các phần tử cho mảng, cho tổng các phần tử lớn hơn 1000 thì dừng
Mọi người làm giúp mình câu này nha cám ơn nhìu

Question

viết chương trình nhập các phần tử cho mảng, cho tổng các phần tử lớn hơn 1000 thì dừng Mọi người làm giúp mình câu này nha cám ơn nhìu

ngochoa · Answer

uses crt;
var s,n:integer;
begin
while s<=1000 do
begin
write(‘Nhap gia tri phan tu: ‘); readln(n);
s:=s+n;
end;
writeln(‘Tong la: ‘,s);
readln
end.

Cách này không cần khai báo mảng cho nên chương trình đơn giản, dễ hiểu và tối ưu hơn.

Có thể là một ý tưởng sáng tạo và mới mẻ cho đề bài này, nhưng với một cách ra đề khác 😀

baoquyen · Answer

program oken;

uses crt;

var a: array [1..10000] of longint;

i,n,tong:longint;

begin

clrscr;

write(‘nhap so phan tu cua mang: ‘); readln(n);

tong:=0; i:=1;

while tong<=1000 do

begin

write(‘a[‘,i,’]: ‘); readln(a[i]);

tong:=tong+a[i];

i:=i+1;

end;

writeln(‘Tong lon hon 1000 cua ‘,i,’ phan tu: ‘,tong);

readln;

end.

0 bình luận về “viết chương trình nhập các phần tử cho mảng, cho tổng các phần tử lớn hơn 1000 thì dừng Mọi người làm giúp mình câu này nha cám ơn nhìu”