Цитата:
Сообщение от Сергей06
оператор Randomize они не приходили (и типо пользоваться нельзя тем что не проходили)
|
Без проблем. Заменил ввод массивов ручным:
Код:
Var
Alpha:Array[1..15] of Real;
Beta,Gamma:Array[1..7] of Real;
i:Integer;
S,P:Real;
Begin
S:=0;
P:=1;
For i:=1 to 15 do
begin
Write('Alpha[',i:2,']= ');
Readln(Alpha[i]);
S:=S+Alpha[i];
end;
Writeln;
For i:=1 to 7 do
begin
Write('Gamma[',i:2,']= ');
Readln(Gamma[i]);
P:=P*Gamma[i];
end;
Writeln;
Writeln('Array Alpha:');
For i:=1 to 15 do Write(Alpha[i]:8:2);
Writeln;
Writeln('Array Gamma:');
For i:=1 to 7 do Write(Gamma[i]:8:2);
Writeln;
Writeln;
Writeln('Array Beta:');
For i:=1 to 7 do
begin
Beta[i]:=Gamma[i]*(Gamma[1]+S)/(Alpha[1]+P);
Write(Beta[i]:8:2);
end;
Readln
End.
Цитата:
Сообщение от Сергей06
Владимир, прошу прощения, мне сказали что эта программа очень длинная
|
Даже не знаю - злиться или смеяться над подобными "требованиями". В программе нет АБСОЛЮТНО ничего лишнего: вводятся два массива, в тех же циклах ввода считаются сумма элементов для одного и произведение элементов для другого, введенные массивы выводятся на экран, потом по формуле считается третий массив с выводом опять же на экран - всё! Ума не приложу как тут сделать, чтобы было "покороче".
Цитата:
Сообщение от Сергей06
как я понял эта должна быть примерно такой же
|
А она и есть практически "такая же", разница в том, что в приведенном образце всего один массив, а в данной задаче - два, отсюда программа и длинней.