Question

[minh đức]

viêViết chương trình nhập 10 số nguyên từ bàn phím .in ra mành hình dãy số vừa nhập

Viết chương trình nhập 10 số nguyên từ bàn phím .in ra các số lẻ

viết trương chình nhập N số nguyên từ bàn phím in ra màn hình tổng các số cần nhập

HELP ME

Answer 1

[Nguyễn Lê Phước Thịnh]

*Viết chương trình nhập 10 số nguyên từ bàn phím. In ra màn hình dãy số vừa nhập

uses crt;

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

i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

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

end;

for i:=1 to 10 do 

  write(a[i]:4);

readln;

end.

Answer 2

[Nguyễn Lê Phước Thịnh]

*Viết chương trình nhập 10 số nguyên từ bàn phím .in ra các số lẻ

uses crt;

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

i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

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

end;

for i:=1 to 10 do 

  if a[i] mod 2<>0 then write(a[i]:4);

readln;

end.