Viết chương trình thực hiện nhập 19 phần tử giá trị nguyên cho mảng A từ bàn phím và tính tổng các phần tử chẵn có trong mảng A
2 câu trả lời
program ct;
uses crt;
var i,n,s:integer;
A:array[1..19] of integer;
begin
clrscr;
for i:=1 to 19 do
begin
write('nhap mang A[',i,']:=');readln(A[i]);
end;
s:=0;
for i:=1 to 19 do
if A[i] mod 2=0 then s:=s+A[i];
writeln('tong cua day so la:',s);
readln
end.
uses crt;
var i,s:longint; a:array[1..1000000]of longint;
begin
clrscr;
for i:=1 to 19 do
begin
read(a[i]);
inc(s,a[i]);
end;
writeln(s);
readln
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
