Khai báo mảng 1 chiều tối đa 10 phần tử. Nhập và in mảng trên màn hình B tính tong các phần tử trong mảng C đếm số âm dương trong mảng

vhtrang000

1 năm trước

Loga Sinh Học lớp 12

0 lượt thích 9 xem

1 trả lời

Thích Trả lời

vananh5804

Program hotboy;

Uses crt;

Var a: array[1..10] of integer;

s,i,n,am: integer ;

Begin

Clrscr;

Write('Nhap so phan tu n:'); Readln(n);

for i:=1 to n do begin

Write('a[',i,'] = ');

readln(a[i]);

end;

For i:=1 to n do

Begin

if A[i]<0 then am:= am+1;

writeln(a[i]);

end;

s:=s+a[i];

writeln('Tong cac phan tu cua mang: ',s);

writeln('co so so am la. ',am);

readln

end.

Vote (0) Phản hồi (0) 1 năm trước

1215251108827081

Program BTT;
Uses crt;
Var A: array[1..10] of longint;
n,i,da,dd,s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
End;

s:=0;
Write('Cac phan tu cua mang la: ');
For i:=1 to n do
Begin
Write(A[i],' ');
s:=s+A[i];
If A[i]>=0 then inc(dd);
If A[i]<0 then inc(da);
End;
Writeln;
Writeln('Tong cac phan tu cua mang: ',s);
Write('Co ',dd,' so duong va ',da,' so am');
Readln
End.

Vote (0) Phản hồi (0) 1 năm trước

Các câu hỏi liên quan

cho tam giác ABC vuông tại A. Gọi M là trung điểm của AC , trên tia đối của tia MB lấy điểm D sao cho MD =MB. 1) chứng minh AD=BC. 2) chứng minh CD vuông góc với AC. 3) đường thẳng qua B song song với AC cắt tia DC tại N chứng minh tam giác ABM = tam giác CNM

hãy tính số mol C02 có trong 11g khí CO2 (đktc)

Cho các kim loại . Fe.. Al. Cu.. Ag. . hãy cho biết Trong các kim loại trên kim loại nào tác dụng với dung dịch. dd. Hcl dd. NaOH dd . CuSO4 dd. AgNO3 Hãy viết phường trình?

Hai bình đáy rời có cùng tiết diện đáy được nhúng xuống nước đến độ sâu nhất định . Nếu đổ 1 kg nước vào mỗi bình thì vừa đủ để đáy rời khỏi bình . Nếu thay 1 kg nước bằng 1 kg chất lỏng khác có khối lượng riêng nhỏ hơn của nước thì các đáy bình có rời ra không ?

Chứng tỏ rằng gai số 60 và 143 là hai số nguyên tố cùng nha

Các bạn giải bài phải có 2 phần tóm tắt và giải không dùng dấu đặc biệt / \ này nhé nó làm mình rối.

Biểu thức nào sau đây có giá trị lớn nhất, nhỏ nhất. Tính giá trị đó và giá trị x,y kèm theo. a) A = |x + 2| + 2019 b) B = 2018 - |x + 1| c) C = |x - 3|+ |y - 2| + 2020

Đặt một câu văn có sử dụng ít nhất một trong các dấu câu(em đã học ở lớp8) để nói về tình yêu thương của bố mẹ dành cho con? Chỉ ra công dụng của nó trong câu e vừa đặt. Thanks mn

The (like) drinking coffee What he ( eat) for breakfast We ( not collect) stamps Where he( live)

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến