viết chương trình đọc từ bàn phím dãy số thực có n phần tử (1<n<100).Hãy tính tổng của dãy số và đếm xem, có bao nhiêu số dương ,bao nhiêu số âm

Fairytail

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 40 xem

1 trả lời

Thích Trả lời

Nhikhung

program bai_giai;

uses crt;

var A:array[1..100] of real;

n,i,da,dd:byte;

t:real;

begin

clrscr;

write('Nhap n: '); readln(n);

t:=0; da:=0; dd:=0;

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(A[i]);

t:=t+A[i];

if A[i]>0 then dd:=dd+1

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

end;

writeln('Tong cac phan tu la: ',t:0:3);

writeln('Co ',dd,' so duong');

writeln('Co ',da,' so am');

readln;

end.

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

nguyenthuy28052000

program mang;

uses crt;

var A:array [1..100] of real;

n,i,d1,d1: integer;

T: real;

Begin

clrscr;

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(A[i]);

T:=T+A[i];

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

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

end;

writeln('T = ',T:2:2);

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

write('Co ',d2,' so am');

readln

End.

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

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

Hỗn hợp Al,Fe2O3 nung nóng trong mt không có không có không khí .Viết PTPU giúp mình nha

Nêu cấu tạo và chức năng của cơ quan phân tích thị giác và thính giác

Làm hộ mik nha . Đang cần gấp bài 4,5,6

tìm b thỏa mãn để hàm số liên tục tai x=3

nêu cách sử dụng 3 đồ nhiệt điện trong gia đình

Đặt câu hỏi cho phần trong ngoặc ! 1. I bought this T-shirt for my brother "in Sydney". 2. My friends save money "to fly to Spain".

cho biểu thức P=-2x^3+xy^2+xy^3+4x^2+2x^3-2xy^2-3x^2+4x+1 a) Thu gọn P b) tìm x sao cho P=1 c) Tìm GTNN của P

Ta kí với Pháp hiệp định sơ bộ 8/3/1946 và tâm ước ngày 14/9/1946 nhằm mục đích gì . nêu nội dung của hiệp định sơ bộ

Một hình bình hành có cạnh đáy là 20cm.nếu người ta thu hẹp hai cạnh đáy của hình bình hành đó lại 6cm thì diện tích giảm đi là 12 cm2 .tính diện tích ban đầu của hình bình hành

Cậu nè Trăng sáng nhờ có mặt trời Đề này không khó con 10 trong tay Hôm nay tớ có chuyện này Mong rằng cậu giúp câu này Được không

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