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

 
Thuê bao VinaPhone đã sử dụng được trên máy bay

Thuê bao VinaPhone đã sử dụng được trên máy bay

Ngày 12/7, VinaPhone đã chính thức cung cấp dịch vụ gọi điện thoại hoặc nhắn tin khi đang bay trên một số tuyến bay quốc tế. Hiện tại, dịch vụ này mới chỉ triển khai dành cho thuê bao trả sau.

Xịt Phòng Mosfly AFS Hương Nhiệt Đới 280ml mang lại cho bạn không gian sống trong lành

Giới thiệu Xịt Phòng Mosfly AFS Hương Nhiệt Đới 280ml

Xịt Phòng Mosfly AFS Hương Nhiệt Đới 280ml mang lại cho bạn không gian sống trong lành

Giới thiệu 2 base Themes in Drupal 8 core

Giới thiệu 2 base Themes in Drupal 8 core

My skin crawls when I see HTML filled with divs tucked inside each other over and over again like a Russian nesting doll

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

 

Diet con trung