Question

các cậu giúp mình câu viết chương trình này với nha,bài này khó viết quá nên mong các bạn giúp mình !!!

đề: viết chương trình thực hiện nhập vào 10 phần tử có giá trị nguyên cho mảng A từ bàn phím và tính tổng các phần tử lẻ có trong mảng A.

Answer 1

program tong_le;

uses crt;

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

i:byte;

tong:longint;

begin

clrscr;

writeln;

writeln('nhap cac phan tu cua mang A:');

for i:=1 to 10 do

begin

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

end;

tong:=0;

for i:=1 to 10 do

if a[i] mod 2<>0 then tong:=tong+a[i];

write('tong cac phan tu le co trong mang A la:',tong);

readln;

end.

Answer 2

Progam tongle;

Uses crt;

Var i, S,n : ingteger;

A:array[1..10]of ingteger;

Begin

write(' nhap phan tu cua mang')

readln (n)

S:= 0

for i:= 1 to10 do

if a_[i] mod 2<>0 then S:=S+a[i];

write('tong cac phan tu trong mang la:'S)

readln

End.