Viết Chương Trình Tìm Số Dương Và Số âm Trong Các Dãy Só Nguyên

Trang chủ » Nguyên âm Trong Pascal » Viết Chương Trình Tìm Số Dương Và Số âm Trong Các Dãy Só Nguyên

Có thể bạn quan tâm

  • Cao Minh Thành

    uses crt; type AI = array of integer;

    var m,l,k,i,j:integer; temp:integer; a:AI; b: array [1..10000] of integer; c: array [1..10000] of integer; begin clrscr; write('nhap so luong phan tu mang: '); readln(m); setlength(a,m); for i := low(a) to high (a) do begin write('nhap gia tri phan tu mang a[',i,']'); readln(a[i]); end; l:= 1; k:= 1; repeat for j := low(a) to high (a) do begin if (a[j] > 0 ) then begin b[k] := a[j]; k := k + 1; end else if (a[j] < 0 ) then begin c[l] := a[j] ; l := l +1; end; end; until(j = i) ; writeln('CAC GIA TRI AM :':9); for i:= 1 to l -1 do write(c[i] :4 ) ; writeln; writeln('CAC GIA TRI DUONG :':9); for i := 1 to k -1 do write (b[i]:4); readln; end.

    bởi Cao Minh Thành 24/12/2019 Like (0) 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

  • Phạm My

    var

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

    i,n,d1,d2:integer;

    begin

    write('nhap vao n:');readln(n);

    for i:=1 to n do

    write('nhap vao phan tu a[',i,']:');

    readln(a[i]);

    writeln('day vua nhap la:');

    for i:=1 to n do

    write(a[i]);

    writeln;

    d1:=0;d2:=0;

    for i:=1 to n do

    if a[i]>0 then d1:=d1+1

    else d2:=d2+1;

    writeln('co ',d1,' so duong');

    writeln('co ',d2,' so am');

    readln

    end.

    bởi Phạm My 09/01/2020 Like (0) Báo cáo sai phạm

    • Từ khóa » Nguyên âm Trong Pascal