Question

Câu 6 .Tính tổng dãy 50 số bất kì được nhập từ bàn phím

Câu 7. Đếm số lẻ trong dãy 50 số bất kì được nhập vào từ bàn phím.

Giúp mik vs. Thanks trc nha.

Answer 1

1/

uses crt;

var i,tong:integer;

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

begin

clrscr;

for i:=1 to 50 do

begin

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

end;

tong:=0;

for i:=1 to 50 do tong:=tong+a[i];

write('tong la:',tong);

readln;

end.

*ở đây bạn k ns là số nguyên hay số thực nên mk làm số nguyên, nếu số thực thì bạn sửa khai báo lại nha

Answer 2

2/

uses crt;

var i,dem:integer;

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

begin

clrscr;

for i:=1 to 50 do

begin

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

end;

dem:=0;

for i:=1 to 50 do

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

write('co ',dem,' so le trong 50 so vua nhap');

readln;

end.

*cái này cũng z nhé