Question

Задание по Паскалю
Дан массив из 4х4 вещественных (дробных) чисел. Напишите программу вычисления суммы квадратов дробных частей у элементов массива стоящих выше главной диагонали.

Answer 1

var a:array [1..4,1..4] of real;

i,j:integer;

s:real;

begin

 for i:=1 to 4 do

   for j:=1 to 4 do readln(a[i,j]);

 for i:=1 to 4 do

  for j:=1 to 4 do if j>i then s:=s+sqr(frac(a[i,j]));

 writeln(s);

end.