Viết chương trình pascal nhập vào từ bàn phím một khoảng gồm N(0

13/08/2021 Bởi Eloise

0 bình luận về “Viết chương trình pascal nhập vào từ bàn phím một khoảng gồm N(0<N <=100) số nguyên khác 0 tính và in ra màn hình trung bình các số dương không chia h”

1. program oken;
   uses crt;
   var a: array [1..100] of integer;
       i,n,dem,s:longint;
   begin
           clrscr;
           write(‘nhap so phan tu cua mang: ‘); readln(n);
           for i:=1 to n do
                   begin
                           write(‘a[‘,i,’]: ‘); readln(a[i]);
                           if a[i] mod 7<>0 then
                                   begin
                                           s:=s+a[i];
                                           dem:=dem+1;
                                   end;
                   end;
           writeln(‘TBC cua cac so khong chia het cho 7 trong mang: ‘,s/dem:0:3);
           readln;
   end.

   Bình luận

2. uses crt;
   var a: array [1..100] of integer;
          i,n,d,s:longint;
   begin
   clrscr;
   write(‘nhap so phan tu cua mang: ‘); readln(n);
   for i:=1 to n do
   begin
   write(‘a[‘,i,’]: ‘); readln(a[i]);
   if a[i] mod 7<>0 then
   begin
   s:=s+a[i];
   d:=d+1;
   end;
   end;
   writeln(‘TBC cua cac so khong chia het cho 7 trong mang: ‘,s/dem:0:3);
   readln;
   end.

   Bình luận