Даны диагонали двух ромбов, выяснить: равны ли их площади! решить. в паскале

Var   d1,d2,d3,d4: integer; //диагонали ромбов(d1 и d2 -первый ромб; d3 и d4 - второй ромб) begin   readln(d1,d2,d3,d4);   //s ромба = 0.5*d1*d2;   if 0.5*d1*d2 = 0.5*d3*d4 then   writeln('площади ромбов равны')   else   writeln('площади ромбов не равны'); end.

#include< iostream>

using namescacestd;

int main()

{

int size;

float sum=0;

cout< < "pls enter count your array"< < endl;

cin> > size;

float **arr = new float *[size];

for (int v = 0; v < size; v++)

  arr[v] = new float[size];

cout< < "pls enter your   array"< < endl;

for(int i=0; i< size; i++)

for(int j=0; j< size; j++)

{

cout< < "arr["< < i< < "]["< < j< < "] = ";

cin> > arr[i][j];

cout< < endl;

sum=sum+arr[i][j];

}

cout< < "sum array = "< < sum< < endl;

free(array);

system("pause");

return 0;

}

Pascalabc.net 3.4.2, сборка 1864 от 11.11.2018 внимание! если программа не работает, обновите версию!

begin

  var n : = readinteger('количество чисел в массиве: ');

  var a : = readarrreal('вводите числа: ', n);

  var целых : = 0;

  for var i : = 0 to a.high do

    if frac(a[i]) = 0 then inc(целых);

  writeln('целых: ', целых, ', дробных : ', n-целых)

end.

пример количество чисел в массиве: 7 вводите числа: 3.5 8 0 -1.14 -12 5.0002 -0.00005 целых: 3, дробных : 4