Những câu hỏi liên quan
Thị Na Trần
Xem chi tiết
Minh Lệ
30 tháng 4 2023 lúc 13:24

Program HOC24;

var i,n: byte;

t: longint:

a: array[1..50] of integer;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do begin write('A[',i,']='); readln(a[i]); end;

t:=0;

write('Cac phan tu chan co trong mang la: ');

for i:=1 to n do

if a[i] mod 2=0 then

begin

write(a[i],' ');

t:=t+a[i];

end;

writeln;

write('Tong cac phan tu chan do la: ',t);

readln

end.

Bình luận (1)
Phan Hùng Anh
Xem chi tiết
Minh Lệ
2 tháng 5 2023 lúc 20:48

Program HOC24;

var a: array[1..50] of integer;

i,n: byte;

t: longint;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

write('Cac phan tu chan trong mang la: ');

for i:=1 to n do

if a[i] mod 2=0 then

begin

write(a[i],' ');

t:=t+a[i];

end;

writeln;

write('Tong cac phan tu chan trong day la: ',t);

readln

end.

Bình luận (0)
Quảng Nguyễn
Xem chi tiết
taf.amp
Xem chi tiết
Kiều Vũ Linh
2 tháng 5 2022 lúc 7:50

Var a:array[1..30] of integer;

i,n,d,max:integer;

Begin

Write('Nhap so luong phan tu cua mang ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

End;

max:=a[1];

For i:=2 to n do

Begin

If a[i] > max then

Begin

max:=a[i];

d:=i;

End;

End;

Write('Phan tu lon nhat la ',max,' o vi tri ',d);

Readln;

End.

Bình luận (0)
taf.amp
Xem chi tiết
Kiều Vũ Linh
2 tháng 5 2022 lúc 7:52

Var a:array[1..30] of integer;

i,n,d,max:integer;

Begin

Write('Nhap so luong phan tu cua mang ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

End;

max:=a[1];

For i:=2 to n do

Begin

If a[i] > max then

Begin

max:=a[i];

d:=i;

End;

End;

Write('Phan tu lon nhat la ',max,' o vi tri ',d);

Readln;

End.

Bình luận (0)
Lê Thị Khánh Thi
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
21 tháng 5 2019 lúc 6:59

Đáp án A

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
2 tháng 2 2018 lúc 5:06

Đáp án A

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
17 tháng 4 2018 lúc 10:46

Đáp án A

Bình luận (0)