Y>12 - это не произведение, а неравенство. Его результат - значение "истинно" или "ложно". 1. Определиться, в строке или в колонке располагать данные. Например, принято решение, что данные будут располагаться в колонке А. 2. В колонке А, начиная с любой строки, например, со строки 4 запишем сверху вниз наши значения: 1, 6, 8, 10, 13, 14. Если сделать все, как тут написано, значение 14 должно попасть в ячейку А9. 3. В колонке B рядом с данными поместим формулу, по которой нужно сделать вычисление. Становимся в ячейку B4 и вводим в ней формулу =A4>12 В Excel запись формулы всегда начинается со знака равенства, причем сам этот знак лишь означает, что дальше идет формула, а в самой формуле он не учитывается. A4 - это адрес (координаты) ячейки, где содержится Y, поэтому формула =A4>12 понимается так: вычислить, больше ли содержимое ячейки А4, чем 12. Результат будет вычислен и записан в ячейке B4 на месте формулы. Для операций отношения Excel выдает результат в форме значения ИСТИНА и ЛОЖЬ. В данном случае 1<12, поэтому значением Y>12 будет ЛОЖЬ. Теперь эту же формулу надо разместить в остальных ячейках В5-В9. Это можно сделать несколькими а) Самый глупый. Записать в каждой ячейке нужную формулу. А если таких ячеек сто? Или 1000? б) "Для забывашек". Шелкнуть мышкой в ячейке В4 и скопировать в буфер её содержимое, воспользовавшись меню или введя Ctrl+C. Затем выделить группу ячеек с В5 по В9 и выполнить операцию вставки из буфера через меню или введя Ctrl+V. Excel выполнит "умное" копирование и щелкнув любую из ячеек из В5-В9 модно убедиться, что адрес А4 изменился на адрес нужной строки. в) Скопировать перетаскиванием. Щелкнуть мышкой в ячейке А4. Вокруг ячейки появится толстая рамка выделения с жирной точкой в правом нижнем углу. Навести мышку на эту точку и курсор превратится в знак "плюс". Далее зажать левую кнопку мышки и перетащить курсор вниз пока не окажутся выделенными все ячейки, куда надо выполнить копирование. Затем отпустить левую кнопку мыши. Все, формулы "размножены", причем тоже "умно".
Смотри на скриншот я сделал просто не хочу чтоб форматировка текста портилась.Все работает! const n=3;m=4; var a:array [1..n,1..m] of integer; i,j,k,max:Integer; ind:array [0..1] of Integer=(1,1); begin Randomize; for i:=Low(a) to High(a) do for j:=Low(a) to High(a[1]) do a[i,j]:=Random(100); for i:=Low(a) to High(a) do begin writeln; for j:=Low(a) to High(a[1]) do write(a[i,j]:3); end; max:=a[1,1]; for i:=Low(a) to High(a) do for j:=Low(a) to High(a[1]) do if a[i,j]> max then begin max:=a[i,j]; ind[0]:=i; ind[1]:=j; end; writeln; Writeln(' Max element: ',max); Write(' Index: '); for i:=0 to 1 do write(ind[i],' '); Readln; end.
var
x,y,z:real;
begin
x := -1.0 * (0.2) * 1.0;
if x < 0 then y := tan(sqr(x))
else y := 1 + x*x*x;
z := exp(y) + sqrt(abs(sin(y*y*y)));
writeln(z);
end.