YOMEDIA
NONE

Viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử.sau đó hãy tách thành 2 dãy ,một dãy chứa số âm,một dãy chứa sô dương

viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử.sau đó hãy tách thành 2 dãy ,một dãy chứa số âm,một dãy chứa sô dương

Theo dõi Vi phạm
ADSENSE

Trả lời (2)

  • Nguyễn Lê Phước Thịnh

    quá dễ

    uses crt;
    var a,b,c:array[1..100]of integer;
        i,j,n,dem1,dem2:integer;
    begin
    clrscr;
    write('n='); readln(n);
    for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
      end;
    {-----------------xuat--------------}
    writeln('day ban dau la: ');
    for i:=1 to n do
      write(a[i]:4);
    {----------------xu-ly-----------------}
    dem1:=0;
    dem2:=0;
    for i:=1 to n do
      begin
         if a[i]<0 then
            begin
               inc(dem1);
               b[dem1]:=a[i];
            end;
         if a[i]>0 then
            begin
               inc(dem2);
               c[dem2]:=a[i];
            end;
      end;
    writeln;
    writeln('day so am la: ');
    for j:=1 to dem1 do
      write(b[j]:4);
    writeln;
    writeln('day so duong la: ');
    for j:=1 to dem2 do
      write(c[j]:4);
    readln;
    end.

      bởi Nguyễn Lê Phước Thịnh 05/11/2019
    Like (1) Báo cáo sai phạm
    • YOMEDIA

    Video HD đặt và trả lời câu hỏi - Tích lũy điểm thưởng

  • Minh Quân Nguyễn Trần

    ĐỀ: Viết chương trình nhập vào một dãy số nguyên n phần tử, n nhập từ bàn phím.
    - In ra màn hình dãy số vừa nhập xếp theo thứ tự tăng dần.
    - In ra màn hình các số nguyên tố trong dãy số vừa nhập và đếm xem đã nhập vào bao nhiêu số nguyên tố.

    (Bài làm theo kiểu thô sơ nhé)

    VAR a:ARRAY[1..100] OF longint;
    n,d,dem,i,j,t:longint;
    BEGIN
    dem:=0;
    WRITELN('NHAP SO PHAN TU N:');
    READ(N);
    WRITELN('NHAP MANG:');
    FOR i:=1 TO n DO
    BEGIN
    WRITE('a[',i,']=');READLN(a[i]);
    END;

    //---------sap---xep------
    for i:=1 to n-1 do
    for j:=i+1 to n do
    if a[i]>a[j] then
    begin
    t:=a[i];
    a[i]:=a[j];
    a[j]:=t;
    end;
    write('day sau khi sap xep: ');
    for i:=1 to n do write(a[i],' ');
    writeln;
    //--------tim-so-nguyen--to------

    write('cac so nguyen to trrong day la: ');
    for i:=1 to n do
    if a[i]>=2 then
    begin
    j:=2;
    while (j<=sqrt(a[i])) and ((a[i] mod j<>0)) do j:=j+1;
    if j>sqrt(a[i]) then write(a[i],' ');
    end;
    writeln;
    //----------dem-so-nguyen-to-----
    FOR i:=1 TO n DO
    BEGIN
    d:=0;
    FOR j:=1 TO a[i] DO
    IF a[i] MOD j = 0 THEN d:=d+1;
    IF d=2 THEN dem:=dem+1;
    END;
    WRITE('SO NGUYEN TO CO TRONG MANG LA:',dem);
    readln;
    END.

      bởi Minh Quân Nguyễn Trần 23/02/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
AANETWORK
OFF