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.
Не проверено. Написал сходу в окне.
А интернет для чего тебе? Это же лёгкие вопросы!
<span>В Power Point'e можно зайдя в Средства рисования (1), далее выбираем фигуры, изгибы стрелки (2) и рисуем(3), далее делаем скрин заходим например в Paint (или любой другой графический редактор) и сохраняем как рисунок.
</span><span>В Paint'e так же выбираем фигуры и рисуем...
Ну можно ещё в Gimp'e сделать, не говоря уже про Adobe Photoshop)</span>
1) 26 символов = по другому 2 в 5 степени (с остатком);
2) 240 * 5 = 1200 бит
Ответ:
program Multi;
var
a, b: Real;
begin
Write ('Введите 2 числа: ');
ReadLn (a, b);
if a * b > 0 then
WriteLn ('Произведение положительно')
else if a * b < 0 then
WriteLn ('Произведение отрицательно')
else
WriteLn ('Произведение равно 0');
ReadLn;
end.