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

 
Giới thiệu sách Drupal 7 - Multi-sites Drupal Book

Giới thiệu sách Drupal 7 - Multi-sites Drupal Book

It took me some days to actually get started on this and start writing. As some of you already know, Packt has given me the Drupal 7 - Multi-sites Configuration book to review. 

Tính năng của E-Business Platform từ Basel Tourism

Tính năng của E-Business Platform từ Basel Tourism

Basel in Switzerland is one of the leading tourism destinations, known for its art and culture. Major events like "Art Basel" and "Basel World" attracts many visitors from around the world. In addition to business and congress tourism, Basel Tourism

BlackBerry khởi kiện Typo Products - công ty với ý tưởng vỏ bảo vệ kiêm bàn phím Qwerty cho iPhone

Vỏ bảo vệ Typo Keyboards Case (ảnh) dù chưa chính thức bán ra nhưng đã vấp phải vụ kiện từ BlackBerry - hãng nổi tiếng với smartphone có bàn phím Qwerty vật lý​

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

 

Diet con trung