Обе програмки проверены на АВС Паскале. Работают :)
Program User6165_1;
const n=10;
var
a:array[1..n,1..n] of integer;
stosum:array[1..n] of integer;//массив для хранения сумм столбцов
i,j,nomer,sum : integer;
begin
Randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:= Random(100); //заполняем массив
writeln('*** alphaues is thinking... ***');
for j:=1 to n do
begin
sum:=0;
for i:=1 to n do
sum:=sum+a[i,j]; // находим сумму столбца
stosum[j]:=sum;
end;
nomer:=1;
sum:=stosum[1];
for j:=1 to n do
begin
if sum<stosum[j] then sum:=stosum[j];
nomer:=j;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);//выводим массив
writeln;
end;
writeln('*** столбец с максимальной суммой - ',nomer,'-й');
end.
Program User6165_2;
const n=10;
var
a:array[1..n,1..n] of integer;
stosum:array[1..n] of integer;//массив для хранения сумм столбцов
i,j,nomer,min : integer;
begin
Randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:= Random(100); //заполняем массив
writeln('*** alphaues is thinking... ***');
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);//выводим массив
writeln;
end;
for i:=1 to n do
begin
min:=a[i,1];
nomer:=1;
for j:=1 to n do
if min>a[i,j] then
begin
min:=a[i,j];
nomer:=j;
end;
if nomer<n then
begin
a[i,nomer+1]:=1;
writeln(i,'-я строка: мин. элемент - ',nomer,'-й. Следующий заменён на 1.');
end
else
writeln(i,'-я строка: мин. элемент - ',nomer,'-й. Это последний элемент в строке.');
end;
end.
Построить график: y = 1.5x2 + 2x - 10
С шагом 0.5
Область определения от -5 до 5
1. Напишем в ячейках A1 A2 A3 коэффиценты 1.5 2 и -10
2. В ячейке A3 обозначим X
В ячейке A4 обозначим Y
3. Ячейку B3 заполняем значением "-5", хватаем за черный маркер Правой Кнопкой Мыши и тянем до V3, появляется меню, там выбираем пункт "Прогрессия" и устанавливаем шаг 0.5
4. Теперь заполним Y, в клетку В4 добавляем формулу "=$A1*B3^2+$B1*B3+$C1" и тянем её за маркер до V4
Далее выделяем диапозон клеток B3:V4
5. Жмем вставка, "точечная с гладкими кривыми"
Готово, график построен, теперь меняем его внешний вид и оформляем таблицу
Пример выполненной работы:
http://yadi.sk/d/mkUM6ESO58qFG