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

Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 9:57

*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.

Bình luận (0)
Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 9:58

*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.

Bình luận (0)
Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 9:59

*Viết chươ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

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(t);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Tuấn Trần thị
Xem chi tiết
PC Vũ
Xem chi tiết
Ngọc hà
Xem chi tiết
Trần Hà Thư
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Lê Thùy Dương
Xem chi tiết
Phan Hồng Anh
Xem chi tiết
Lê Thế
Xem chi tiết