205=315
338=522
104=68
237=159
Объяснение:
Задание 1: отсутствует алгоритм (условие неполное - решения нет).
Задание 2: отсутствует алгоритм (условие неполное - решения нет).
Задание 3: i = 1, y = -14
Объяснение:Алгоритм:
1. Начало2. Ввод x,y3. y := y - x4. i := i + 15. Если y <= x , то возвращаемся к пункту 3, иначе:6. КонецПройдёмся по алгоритму:
1. Начало2. Ввод x,yВводим 12 и -2 (теперь x = 12, y = -2).
3. y := y - xУменьшаем переменную y на x (теперь y = -2 - 12 = -14).
4. i := i + 1Увеличиваем переменную i на 1 (теперь i = 0 + 1 = 1).
5. Если y <= x , то возвращаемся к пункту 3, иначе:6. КонецПроверяем: сейчас y = -14, x = 12, => условие "y <= x" выполняется, и мы переходим к пункту 6 -- конец.
Как мы видим, по завершении выполнения алгоритма i = 1, y = -14.
program Geom;
program Test_nn;
{$APPTYPE CONSOLE}
{$R *.res}
uses
Math;
var
a: array of Extended;
n, i, c: Integer;
x: Extended;
begin
Write ('Размерность массива = ');
ReadLn (n);
SetLength (a, n);
Randomize;
for i := Low (a) to High (a) do begin
a [i] := (Random (2001) - 1000) / 1000;
Write (a [i] :7 :3);
end;
x := 1;
c := 1;
WriteLn;
for i := Low (a) to High (a) do begin
if a [i] > 0 then begin
Write (a [i] :7 :3);
x := x * a [i];
Inc (c);
end;
end;
WriteLn;
WriteLn ('Среднее геометрическое = ', Power (x, 1/c) :20 :15);
ReadLn;
end.
Объяснение:
205-315
338-522
104-68
237-159