Tính tổng bình phương của các số âm trong một mảng gồm N phần tử với Pascal

Tính tổng bình phương của các số âm trong một mảng gồm N phần tử với Pascal

Ý tưởng:

Duyệt qua tất cả các phần tử A[i] trong mảng: Nếu A[i]<0 thì cộng dồn (A[i])2 vào biến S.

code:

Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,S:Integer;
Begin
{Nhập mảng}
Write(‘Nhap N=’); Readln(N);
For i:=1 To N Do
Begin
Write(‘A[‘,i,’]=’); Readln(A[i]);
End;
{Tính tổng}
S:=0;
For i:=1 To N Do
If A[i]<0 Then S:=S+A[i]*A[i];
{In kết quả ra màn hình}
Writeln(‘S= ’, S);
Readln;
End.   
Bạn thấy bài viết này như thế nào?: 
Average: 5.2 (86 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
5 tính năng quan trọng của Open Atrium 2 cho Education

5 tính năng quan trọng của Open Atrium 2 cho Education

Being able to effectively and efficiently collaborate with colleagues is something that every organization struggles with. Whether it be the process in which collaboration occurs or the tool that facilitates the process

Giới trẻ Mỹ "sở hữu" nhiều nhất điện thoại thông minh

Giới trẻ Mỹ "sở hữu" nhiều nhất điện thoại thông minh

Theo số liệu của Nielsen tại Mỹ lứa tuổi 25-34 sở hữu điện thoại thông minh ở mức cao nhất : 62% sở hữu một điện thoại thông minh so với 43% trong số các thuê bao điện thoại di động của tất cả các lứa tuổi, theo thống kê quý  ba năm 2011.

Apple sẽ giới thiệu iPhone mới vào ngày 12 tháng 9?

Apple sẽ giới thiệu iPhone mới vào ngày 12 tháng 9?

Ngày 12 tháng 9 tới đây sẽ là một sự kiện đặc biệt của Apple, đã có nhiều trang tin nổi tiếng trên thế giới xác nhận điều này. T

Công ty diệt chuột T&C

 

Diet con trung