program rost;
var h1,h2,h3: integer;
begin
write ('Введите рост трёх спортсменов');
read(h1,h2,h3);
writeln;
if (h1<h2) and (h2<h3) then
write ('По росту') else
write ('Не по росту');
end.
При копировании формулы мы смещаемся на одну строку выше и на две колонки правее, что приведет к вычитанию единицы из номера строки и прибавлению двойки к номеру колонки.
Было: B$3, станет D$3. Номер колонки увеличился, а для строки была задана абсолютная адресация, поэтому $3 не меняется.
Было: $D2, станет $D1. Номер строки уменьшается на единицу, а номер колонки остается прежним и-за абсолютной адресации.
Окончательно формула в C2 будет иметь вид =D$3*$D1, а значение составит 50*70=3500.
Генерирую массив потом вывожу в столбики,n-константа которую ты выбираешь внезависимости от размера желаемого массива
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
const n=7;
var a:array [0..n] of integer;
i:integer;
begin
randomize;
for i:=0 to n do
a[i]:=Random(100);
Writeln('X F(X)');
for i:=0 to n do
begin
if i mod 2 <> 0 then Continue;
write(a[i],' ',a[i+1]);
Writeln;
end;
readln;
end.
Персональный компьютер относится к средствам составления и изготовления документов — (5)
Ну, примерно так. можно решить и по-другому