fork download 
  1. program SumOfSquares;
  2. var
  3.   a: array[1..4] of Real;
  4.   sum: Real;
  5.   i: Integer;
  6. begin
  7.   a[1] := 0.5;
  8.   a[2] := -3;
  9.   a[3] := 2;
  10.   a[4] := -1.6;
  11.   sum := 0;
  12.   for i := 1 to 4 do
  13.     sum := sum + a[i]*a[i];
  14.   WriteLn('Сума квадратів елементів масиву: ', sum:0:2);
  15. end.
  16.  
Success #stdin #stdout 0s 5292KB
comments (?)
stdin 
Standard input is empty
stdout 
Сума квадратів елементів масиву: 15.81
https://ideone.com/7g9qMc
language:
Pascal (fpc 3.0.4)
created:
286 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!