Viết chương trình nhập vào mảng một chiều A khoảng 50 phần tử. a/ Đếm số phần tử dương trong dãy b/Tính các số âm trong dãy c/In mảng chỉ gồm các số chẵn (chia hết cho 2).

maiphuong3449

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 15 xem

1 trả lời

Thích Trả lời

cifafute

đáp án

var

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

i,n:integer;

sa,sd:longint;

begin

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

for i:=1 to n do

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

readln(a[i]);

sa:=0; sd:=0;

for i:=1 to n do

if a[i] > 0 then sd:=sd+a[i]

else sa:=sa+a[i];

writeln('tong am la',sa);

writeln('tong duong la',sd);

readln

end.

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

thuthaokdhy

Program NN;
Uses crt;
Var A: array[1..50] of longint;
n,i,s,d: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0; d:=0;
For i:=1 to n do
Begin
Read(A[i]);
If A[i] > 0 then inc(d);
If A[i] < 0 then s:=s+A[i];
End;
Writeln(d);
Writeln(s);
For i:=1 to n do
If A[i] mod 2 = 0 then Write(A[i],' ');
Readln
End.

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

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

làm giúp mình với, mình cần gấp

Giúp mk với Rồi mk chọn cho câu tl hay nhất

Hãy liệt kê, miêu tả cái cặp của em(not văn) vote 5 sao

Giúp mik với các bạn ơi 🙁 Bài 7 ý nhé

Nêu nghệ thuật của truyện Em bé thông minh

1.Cách xác định hình chiếu của 1 vật thể ? 2.Vị trí của các hình chiếu trên bản vẽ kĩ thuật ? 3. Nêu hình dạng và kích thước của các khối đa diện? 4Nêu hình dạng và kích thước của các khối tròn xoay ? Lm hộ e zới ạ

Giúp em với Cho phương trình:$x^2-2x+m-3=0$(x là ẩn số) a)Tìm m để phương trình có nghiệm b)Tìm m để phương trình có hai nghiệm $x_1;x_2$ thỏa hệ thức $(x_1+x_2)^2=16+2_{x_1x_2}$

Mn giúp mk giải bài luận này nhé! cách viết bản thu hoạch cho CHỦ NGHĨA MÁC - LÊNIN, TƯ TƯỞNG HỒ CHÍ MINH - NỀN TẢNG TƯ TƯỞNG, KIM CHỈ NAM CHO HÀNH ĐỘNG CÁCH MẠNG CỦA ĐẢNG CỘNG SẢN VIỆT NAM

Cho tam giác ABC có AB =AC .Gọi M là trung điểm của BC a) Chứng minh rằng tam giác ABM=tam giác ACM b) Chứng minh rằng AM vuông góc với BC c) Trên cạnh BA lấy điểm D ,trên cạnh CA lấy điểm E sao cho BD=CE Chứng minh tam giác BDM = tam giác CEM d) Chứng minh DE // BC

hãy chỉ ra''lực thứ hai'' trong các trường hợp sau đây: con chim đậu trên cành cây chiếc thuyền nổi trên mặt nước quyển sách nằm yên trên mặt bàn treo1 quả nặng đứng yên vào 1 đầu lò xo

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