YOMEDIA
NONE

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.

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • Chuột Chũi

    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
 
NONE

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

AANETWORK
 

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

 

YOMEDIA
ATNETWORK
ON