Viết chương trình sử dụng biến mảng nhập một dãy số gồm n phần tử và in các phần tử đó ra màn hình

0 bình luận về “Viết chương trình sử dụng biến mảng nhập một dãy số gồm n phần tử và in các phần tử đó ra màn hình”

1. program ct;

   uses crt;

   var i,n:integer;

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

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   for i:=1 to n do

   begin

   write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

   writeln(‘day so vua nhap la:’);

   for i:=1 to n do

   write(A[i],’  ‘);

   readln

   end.

   Bình luận

2. program CTNMT;

   uses crt;

   var n,i,dem: longint;

   A: array [1..1000] of longint;

   Begin

   Writeln(‘Ban hay N’); Readln(n);

   for i:=1 to n do

   begin

   Writeln(‘Nhap so thu ‘,i); Readln(a[i]);

   end;

   Writeln(‘In ra mang:’);

   for i:1 to n do Write(a[i]:5);

   writeln;

   Writeln(‘In ra so chan trong mang’);

   for i:= 1 to n do

   begin

   if (a[i] mod 2) = 0 then Write(a[i]:5)

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

   end;

   writeln(‘so so nguyen am la: ‘,đem);

   REadln;

   end.

   Bình luận