Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím.
In ra màn hình tổng các giá trị là số chẵn.
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.
DN
Đỗ Ngọc Trinh
2 tháng 9 2017
Đúng(3)
3 tháng 12 2020
uses crt;
var a:array[1..100]of integer;
i,n,k,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap so k='); readln(k);
dem:=0;
for i:=2 to n do
if a[1]+a[i]=k then dem:=dem+1;
writeln('Co ',dem,' cap so');
readln;
end.
KV
3 tháng 12 2020
Var i,sk,s:integer;
Begin
s:=0;
sk:=0;
For i:=1 to 20 do
Begin
sk:=sk+3;
s:=s+sk;
End;
Write('Tong so keo can de phat la ',s);
End.
2 tháng 12 2020
Program dien_tích_tamgiac;
Var a , h . Read;
Begin
Write ('nhap a ='); Readln (a);
Write ('nhap chieu h ='); Readln (h);
Writeln ('dien h tam giac la:'S=1/2*a*h:4:2);
Readln;
End.
2 tháng 12 2020
uses crt;
var a:array[1..100]of integer;
i,n,x,y:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap x='); readln(x);
write('Nhap y='); readln(y);
for i:=1 to n do
if a[i]=x then a[i]:=y;
writeln('Day sau khi thay doi la: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.