Задание по Паскалю
Дан массив из 4х4 вещественных (дробных) чисел. Напишите программу вычисления суммы квадратов дробных частей у элементов массива стоящих выше главной диагонали.
Ответы
Ответ дал:
0
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.
vksaharkov:
Если правильно, то спасибо огромное))
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
6 лет назад
6 лет назад
8 лет назад