Question

Нужно написать программу на паскале
Заполнить линейный массив по формуле: a[i]= √(x+7,4)-(3-y)/5

Answer 1

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

   var n:=readinteger('n=');

   var mas:= new real[n];

   for var i:=0 to n-1 do

   begin

   var (x,y):=readreal2('x,y=');

   mas[i]:=((x+7.4)**(1/2))-(3-y)/5;

   end;

   var k:=mas.Select(t->round(t*100)/100);

   k.Println;

end.