Dùng ngôn ngữ lập trình pascal viết chương trình nhập vào 1 dãy số nguyên dương, tìm và in số lẻ và số chẵn trong dãy số đó( mong mng giúp đỡ, e cần g

Question

Dùng ngôn ngữ lập trình pascal viết chương trình nhập vào 1 dãy số nguyên dương, tìm và in số lẻ và số chẵn trong dãy số đó( mong mng giúp đỡ, e cần gấp lắm ạ)

in progress 0
Diễm Thu 6 years 2020-10-17T05:16:08+00:00 3 Answers 132 views 0

Answers ( )

  1. binhan
    0
    2020-10-17T05:17:59+00:00
    Reply

    program oken;

    uses crt;

    var a: array [1..1000] of integer;

    i,n:integer;

    begin

    clrscr;

    write(‘Nhap so phan tu cua mang: ‘); readln(n);

    for i:=1 to n do

    begin

    write(‘a[‘,i,’]: ‘); readln(a[i]);

    end;

    write(‘So le cua mang: ‘); 

    for i:=1 to n do

    if (a[i] mod 2=1) then write(a[i],’ ‘);

    write(‘So chan cua mang: ‘);

    for i:=1 to n do

    if (a[i] mod 2=0) then write(a[i],’ ‘);

    readln;

    end.

  2. Sigrid
    0
    2020-10-17T05:18:05+00:00
    Reply

    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;

    for i:=1 to n do

     if A[i] mod 2=0 then writeln(A[i],’ la so chan’);

    for i:=1 to n do

      if A[i] mod 2=1 then writeln(A[i],’ la so le’);

    readln

    end.

  3. Gerda
    0
    2020-10-17T05:18:15+00:00
    Reply

    Để tìm câu trả lời chính xác các em hãy tham khảo viet chuong trinh pascal các nguồn hoc24.vn, lazi.vn, hoidap247.com để thầy cô và các chuyên gia hỗ trợ các em nhé!

Leave an answer

Browse

Giải phương trình 1 ẩn: x + 2 - 2(x + 1) = -x . Hỏi x = ? ( )