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.1 (69 votes)
Ảnh của Tommy Tran

Tommy Tran 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
  • Phone/Zalo: (+84) 944 225 212
  • WhatsApp: (+84) 944 225 212
  • Line Messenger: (+84) 944 225 212
  • Email: [email protected]
  • Telegram Messenger: https:/t.me/tommytran0401

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

 
So sánh sự  khác nhau giữa textlink và backlink

So sánh sự khác nhau giữa textlink và backlink

Lần đầu tiên tư vấn cho thuê textlink, vì newbi nên mình bị lẫn lộn giữa hai khái niệm textlink và backlink,

SEO

Chợ Điện Tử và thủ thuật SEO mũ đen

Chuyện gì xảy ra khi Chợ Điện Tử, một ông trùm thương mại điện tử, dùng tiền để nhanh chóng khẳng định sức mạnh của mình trên các máy tìm kiếm với các thủ thuật seo mũ đen. Liệu họ có thành công với phương pháp của mình?

Apple phản hồi với lỗi bảo mật SMS trên iPhone

Apple phản hồi với lỗi bảo mật SMS trên iPhone

Một hacker jailbreak có biệt danh pod2g đã phát hiện ra một lỗi bảo mật nghiêm trọng liên quan tới hệ thống tin nhắn SMS trong hệ điều hành iOS 6 và ngay ngày hôm sau Apple đã phản hồi lại thông tin trên.

Wordpress Freelancer

 

Wordpress Freelancer