OPTADS360
ATNETWORK
RANDOM
ON
YOMEDIA
Banner-Video
IN_IMAGE

Viết chương trình nhập vào dãy số in ra màn hình tổng các số vừa nhập của dãy ?

 bài 1: viết chương trình nhập vào dãy số in ra màn hình tổng các số vừa nhập của dãy.

bài 2 : viết chương trình nhập vào dãy số in ra màn hình tổng các số chẵn của dãy.

bài 3 : viết chương trình nhập vào dãy số in ra màn hình các số lẻ của dãy.

bài 4: viết chương trình nhập vào dãy số in ra màn hình các số âm của dãy.

bài 5: viết chương trình nhập vào dãy số in ra màn hình dãy được sắp xếp theo thứu tụ tăng dần.

  bởi Phùng Nga 04/05/2020
AMBIENT-ADSENSE/lession_isads=0
QUẢNG CÁO
 

Câu trả lời (1)

  • bài 1:

    Program tong_day;

    Uses crt;

    Var n,i:integer;

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

          s:longint;

    Begin

     Clrscr;

     Write('Nhap so phan tu cua day: ');read(n);

     For i:=1 to n do

      Begin

       Write('Nhap phan tu thu ',i,': ');Read(day[i]);

       s:=s+day[i];

      End;

     Write('Tong cac so vua nhap cua day la: ',s);

     Readln;

    End.

     

    bài 2:

    Program tong_chan_day;

    Uses crt;

    Var n,i:integer;

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

          s:longint;

    Begin

     Clrscr;

     Write('Nhap so phan tu cua day: ');read(n);

     For i:=1 to n do

      Begin

       Write('Nhap phan tu thu ',i,': ');Read(day[i]);

       If (day[i] mod 2 = 0) then s:=s+day[i];

      End;

     Write('tong cac so chan cua day la: ',s);

     Readln;

    End.

     

    bài 3:

    Program in_le_day;

    Uses crt;

    Var n,i:integer;

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

    Begin

     Clrscr;

     Write('Nhap so phan tu cua day: ');read(n);

     For i:=1 to n do

      Begin

       Write('Nhap phan tu thu ',i,': ');Read(day[i]);

      End;

     Write('Cac so le trong day la: ');

     For i:=1 to n do If (day[i] mod 2 = 1) then Write(day[i],' ');

     Readln;

    End.

     

    bài 4:

    Program in_am_day;

    Uses crt;

    Var n,i:integer;

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

    Begin

     Clrscr;

     Write('Nhap so phan tu cua day: ');read(n);

     For i:=1 to n do

      Begin

       Write('Nhap phan tu thu ',i,': ');Read(day[i]);

      End;

     Write('Cac so am trong day la: ');

     For i:=1 to n do If (day[i] < 0) then Write(day[i],' ');

     Readln;

    End.

     

    bài 5:

    Program in_tang_dan;

    Uses crt;

    Var n,i,j,tam:integer;

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

          s:longint;

    Begin

     Clrscr;

     Write('Nhap so phan tu cua day: ');read(n);

     For i:=1 to n do

      Begin

       Write('Nhap phan tu thu ',i,': ');Read(day[i]);

      End;

     For i:=1 to n-1 do

     For j:=i+1 to n do

      If (day[i]>day[j]) then Begin tam:=day[i]; day[i]:=day[j]; day[j]:=tam; End;

     Write('Day duoc sap xep tang dan la: ');

     For i:=1 to n do write(day[i],' ');

     Readln;

    End.

     

      bởi Chuột Chũi 05/05/2020
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
 

Các câu hỏi mới

NONE
OFF

XEM NHANH CHƯƠNG TRÌNH LỚP 8