Viết chương trình nhập từ bàn phím cho dãy số nguyên A gồm N phần tử

Viết các công thức excel phù hợp câu hỏi (Tin học - Lớp 7)

2 trả lời

Rùa đi lùi: BK; LT; RD; RT; CS; CT (Tin học - Lớp 4)

1 trả lời

Xác định đầu ra và đầu vào của thuật toán (Tin học - Lớp 6)

1 trả lời

Nêu 1 ví dụ của khai báo biến mảng (Tin học - Lớp 8)

1 trả lời

Phần mềm soạn thảo tên là gì (Tin học - Lớp 3)

4 trả lời

Viết các công thức excel phù hợp câu hỏi (Tin học - Lớp 7)

2 trả lời

Rùa đi lùi: BK; LT; RD; RT; CS; CT (Tin học - Lớp 4)

1 trả lời

Xác định đầu ra và đầu vào của thuật toán (Tin học - Lớp 6)

1 trả lời

Nêu 1 ví dụ của khai báo biến mảng (Tin học - Lớp 8)

1 trả lời

Phần mềm soạn thảo tên là gì (Tin học - Lớp 3)

4 trả lời

Bài 9: Làm việc với dãy số – Câu 5 Trang 78 SGK Tin học 8. Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số.Độ dài của dãy cũng được nhập từ bàn phím

Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số.Độ dài của dãy cũng được nhập từ bàn phím

Lời giải : 

uses crt;

var n,i:integer;

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

begin

clrscr;

write(‘nhap so phan tu cua day:’);readln(n);

for i:=1 to n do

Quảng cáo

begin

write(‘a[‘,i,’]=’);readln(a[i]);

end;

writeln(‘day so da nhap:’);

for i:=1 to n do write(a[i]:2);

readln;

end.

uses crt;

var A:array[1..1000] of integer;

      i,N,S:longint;

begin

clrscr;

write('Nhap do dai day so: ');readln(N);

for i:=1to N do

   begin

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

   end;

clrscr;

writeln('Cac phan tu trong mang:');

for i:= 1 to N do write(A[i],' ');

S:=0;

for i:= 1 to N do

if ((A[i]) mod 3 =0) and ((A[i]) mod 5 <>0) then S:=S+(A[i]);writeln;

writeln('Tong cac phan tu chia het cho 3 va khong chia het cho 5 la: ',S);

readln;

end.

Cho dãy A gồm N số nguyên (N nhỏ hơn hoặc bằng 200) số nguyên A1,A2,...An. Hãy viết chương trình nhập mảng A vào từ bàn phím và đưa ra màn hình tổng các phần tử chia hết cho 5. Bài 2: Viết chương trình nhập 1 xâu vào từ bàn phím và đưa ra màn hình xâu không chứa dấu cách.

Các câu hỏi tương tự

Bài 1: viết chương trình nhập dãy số nguyên A gồm N phần tử. Với N được nhập từ bàn phím. Tìm và in kết quả ra màn hình phân tử nhỏ nhất của dãy số.

Bài 2:viết chương trình nhập dãy số nguyên A gồm N phần tử. Với N được nhập từ bàn phím. Tìm và in kết quả ra màn hình phân tử lớn nhất của dãy số

Các câu hỏi tương tự

Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím.

In ra màn hình tổng các giá trị là số lẻ.

Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím.

In ra màn hình tổng các giá trị là số chẵn.

uses crt;var n,i :integer;a:array[1..100]of integer;beginclrscr;write('n='); readln(n);for i:=1 to n dobeginwrite('a[',i,']='); readln(a[i]);end;writeln('cac so le trong day so la: ');for i:=1 to n doif a[i] mod 2=1 then write(a[i]:4);writeln;readln;

end.