Задачи на массивы и функции

[Евгениус1]

Задачи на массивы и функции

Всем, всем, всем доброго времени суток! Ребята, очень прошу, выручайте, помогите составить код программы для данных трёх задач, могу даже материально отблагодарить, пополнив баланс телефона если программа будет не замысловатой и хорошо работать! :tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837::tehnari_ru_837:

 

[Евгениус1]

Забыл сказать, что код на языке Turbo Pascal...Очень надеюсь на вас!

 

[Vladimir_S]

Очень надеюсь на вас!

Ну что, сударь, всё ждёте, когда Вам на блюдечке преподнесут решение этих глупых школьных задачек? Так сами за прошедшее время ничего и не родили?

 

[Евгениус1]

Вычисление числа элементов в виде функции

с программой беда, на экран не выходит в таком виде, в котором нужно, то есть в FUNCTIONtehno015

 

[Vladimir_S]

с программой беда, на экран не выходит в таком виде, в котором нужно, то есть в FUNCTIONtehno015

Прежде всего, не надо плодить вокруг одних и тех же задачек кучу тем. Темы объединены. А что до самой задачи, то, например, так:

Const
 X:Array[1..3,1..3] of Real=((0.2,3,4),(0.1,0.2,3.4),(7,8,9));
 Y:Array[1..4,1..4] of Real=((1,3,4,7),(8,9,-4,0),(2,3,7,8),(1,3,4,-3));
 RX=0.5;
 RY=2.5;

Type
 Arr=Array[1..4,1..4] of Real;

Var
 i,j,NumX,NumY:Byte;
 X1:Arr;
 A:Boolean;

Function Num(Z:Arr;N:byte;R:Real):Byte;
var
 p,q,M:Byte;
begin
 M:=0;
 for p:=1 to N do
  for q:=1 to N do
   if Z[p,q]<R then Inc(M);
 Num:=M;
end;

Begin
 for i:=1 to 3 do
  for j:=1 to 3 do
   X1[i,j]:=X[i,j];
 NumX:=Num(X1,3,RX);
 NumY:=Num(Y,4,RY);
 A:=(NumX>=NumY);
 Writeln(A);
 Readln
End.