Рисование линий и фигур (прямых линий, произвольных линий, кривых, эллипсов или кругов, прямоугольников или квадратов, многоугольников),размещение текстов на рисунке,работа с цветом - заполнение областей цветом, рисование с помощью кисти, рисование с помощью распылителя, изменение палитры, преобразование цветных рисунков в черно-белые, обращение цветных рисунков, изменение цвета нарисованных линий, копирование цвета объекта,работа с фрагментами рисунков - выделение фрагмента, копирование фрагмента, сохранение фрагмента в отдельном файле, вставка рисунка или фрагмента из библиотеки или другого файла,изменение рисунка - изменение размеров, изменение масштаба, отображение и поворот рисунка, растяжение и наклон.
1.1 Пользователь должен нажать клавишу "Пробел".
1.2 Программа не завершится, т.к. в скрипте есть значе
89->24
1)89+1=90 (2)
2)90/2=45 (1)
3)45+1=46 (2)
4)46/2=23 (1)
5)23+1=24 (2)
Ответ: 21212
Const
n = 10;
m = 10;
var i, j, column, row, sum_column, sum_row: integer;
arr: array [1..n,1..m] of integer;
begin
for i :=1 to n do
begin
for j:=1 to m do
begin
arr[i,j]:= random()*10;
end;
end;
readln(row);
readln(column);
sum_column:= 0;
sum_row := 0;
for i:=1 to n do
begin
sum_row := sum_row + arr[i,row];
end;
for j:=1 to m do
begin
sum_column := sum_column + arr[column, j];
end;
writeln(sum_column);
writeln(sum_row);
end.
Не проверено. Написал сходу в окне.