Program n1;
var a: array[1..10] of integer;
i,p: integer;
begin
randomize;
write('массив: ');
p:=1;
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i]<0 then p:=p*a[i];
end;
writeln;
write('произведение отрицательных: ',p)
end.
1) A = 81
G = 6
2) H = 13
L = 21
3)
1. параметру G присваиваются значения от 10 до 6, при каждом из значений параметр A меняет свое значение по формуле, в итоге получаются следующие значения:
A = 21 G = 10
A = 39 G = 9
A = 55 G = 8
A = 69 G = 7
A = 81 G = 6
2. Пока параметр H ≤ 12 параметры L и H меняют свои значения по формулам, в итоге получаются следующие значения:
H = 1 L = 0
H = 5 L = 3
H = 9 L = 10
H = 13 L = 21
4) фотографии 1 и 2
5) фотографии 3 и 4
Photomath вот это приложение
Флешка, жесткий диск, дискета, диски.
Program Project1;
var a, P, S, d :real;
begin
readln(d); a:= d/sqrt(2); S:= sqr(a); P:= 4*a; writeln('Сторона: ',a); writeln('Площадь: ',S); writeln('Периметр: ',P);
end.<span>
</span>