лабораторная работа / 2-2 Сумма элементов массива / PROG

program Sum;
var
a: array[1..3,1..3] of real;
s: real;
i,j:integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
Read(a[i,j]);

for i:=1 to 3 do
begin
s:=0;
for j:=1 to 3 do
if a[i,j]>0 then s:=s+a[i,j];
WriteLn(i,' stroka - ',s:6:3);
end;
end.


В зависимости от условия задачи поменять 4 строчку с конца (if a[i,j]>0 then s:=s+a[i,j];)

Найти сумму целых элементов: if frac(a[i,j])=0 then s:=s+a[i,j];
Найти сумму дробных элементов: if frac(a[i,j])<>0 then s:=s+a[i,j];

Найти сумму элементов, кратных 3: if ((a[i,j]) mod 3)=0 then s:=s+a[i,j];
Найти сумму элементов, кратных 7: if ((a[i,j]) mod 7)=0 then s:=s+a[i,j];
Найти сумму элементов, кратных 8: if ((a[i,j]) mod 8)=0 then s:=s+a[i,j];
В последних 3 случаях надо также поменять тип переменной s. Вместо s:real;(4 строка сверху) пишем S:Integer;

ТАКЖЕ НАДО ВНЕСТИ СООТВЕТСТВУЮЩИЕ ИЗМЕНЕНИЯ В БЛОК-СхЕМУ (точно также!!!)