Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
nam trịnh
nhập vào 1 dãy n số nguyên a[1],a[2],..., a[n] (cho n
Buddy
23 tháng 2 2021 lúc 20:05

Program FNG;

Uses crt;Var A: array[1..1000] of longint;    n,i,s,da,sa: longint;Begin        Clrscr;        Write('Nhap n: '); Readln(n);        s:=0; da:=0; sa:=0;        For i:=1 to n do        Begin                Write('A[',i,'] = ');                Readln(A[i]);                s:=s+A[i];                If A[i]<0 then                Begin                        inc(da);                        sa:=sa+A[i];                End;        End;        Writeln('S = ',s);        Writeln('Dem am = ',da)        Write('Tong am = ',sa);        ReadlnEnd.

Nguyễn Lê Phước Thịnh
23 tháng 2 2021 lúc 20:13

Nhập mảng xong rồi làm gì nữa bạn?


Các câu hỏi tương tự
Anh Nguyen
Xem chi tiết
Lee Jihoon
Xem chi tiết
Nguyen Nhi
Xem chi tiết
Hoàng Trần Thanh Hà _THP...
Xem chi tiết
Thuần Quang
Xem chi tiết
Anna Lagila
Xem chi tiết
Thu hằng
Xem chi tiết
Nguyễn Lê
Xem chi tiết
Dương Thành Long
Xem chi tiết