viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử . Hãy tính tổng các phần tử dương chẵn trong dãy
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
14 tháng 5 2021
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
for i:=1 to n do
if min=a[i] then write(i:4);
readln;
end.
14 tháng 5 2021
a) Mô tả thuật toán:
-Bước 1: Nhập n và nhập dãy số
-Bước 2: dem←0; t←0; i←1;
-Bước 3: Nếu a[i] mod 2=0 thì dem←dem+1 và t←t+a[i];
-Bước 4: i←i+1;
-Bước 5: Nếu i<=n thì quay lại bước 3
-Bước 6: Xuất dem, t
-Bước 7: Kết thúc
ML
14 tháng 5 2021
Program HOC24;
var i,n: integer;
a: array[1..32000] of integer;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
t:=0;
write('Cac so chia het cho 5: ');
for i:=1 to n do if a[i] mod 5=0 then write(a[i],' ');
writeln;
for i:=1 to n do if a[i] mod 5=0 then t:=t+a[i];
write('Tong cua chung la: ',t);
readln
end.
14 tháng 5 2021
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 5=0 then
begin
write(a[i]:4);
t:=t+a[i];
end;
writeln;
writeln(t);
readln;
end.
ML
14 tháng 5 2021
Lần lặp 1: n=1; s=1
Lần lặp 2: n=2; s=3
lần lặp 3: n=3; s=6
Lần lặp 4: n=4; s=10 (s không còn thõa mãn s<=10 nên dừng vòng lặp)
Vậy sau khi thực hiện đoạn chương trình n=4 và s=10
ML
14 tháng 5 2021
44. không có đáp án đúng b ạ
A. if a:=1 then a:=a+1; -> sai vì trong ĐK không thể là lệnh gán
B.if a>b else write(a); -> sai vì chưa thực hiện lệnh "thì" (then) đã sử dụng lệnh "ngược lại" (elsu)
C và D tương tự nhau. if (a mod 2)=0; then write('So khong hop le'); -> sai vì sau điều kiện có dấu ";"
program tongduong;
uses crt;
var a:array[1..100] of integer;n,i,s:integer;
begin
clrscr;
s:=0;
writeln('nhap do dai cua day');readln(n);
for i:=1 to n do begin writeln('a[',i,']= ');readln(a[i]); end;
for i:=1 to n do if a[i] mod 2 = 0 then s:=s+a[i];
write(' Tong cac so duong trong day la',s);
readln
end.
Bạn the pie mới có lệnh nhập độ dài của dãy còn chưa có lệnh nhập các phần tử trong dãy nhé :)))
uses crt;
var a:array[1..249]of integer;
i,n,t,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<250);