в первых двух ошибки(((
1) Вычислить [b]z=S1+S2/2 где S1 - сумма положительных элементов массива X(50); S2 - сумма отрицательных элементов массива Y(60).
Примечание обе суммы вычислять в одной подпрограмме.
Задачу надо выполнить с использованием попрограммы-функция !!
Цитата:
Program xys;
var
xs,ys,i:integer;
x:array[1..50] of integer;
y:array[1..60] of integer;
z:real;
function go:boolean;
begin
for i:=1 to 60 do
begin
if(y[i]<0>50) then
continue;
if(x[i]>0) then
xs:=xs+x[i];
end;
begin
xs:=0;
ys:=0;
go;
z:=xs+ys/2;
end.
var
xs,ys,i:integer;
x:array[1..50] of integer;
y:array[1..60] of integer;
z:real;
function go:boolean;
begin
for i:=1 to 60 do
begin
if(y[i]<0>50) then
continue;
if(x[i]>0) then
xs:=xs+x[i];
end;
begin
xs:=0;
ys:=0;
go;
z:=xs+ys/2;
end.
2) Найти наибольший и наименьший элементы матрицы и поменять их местами.
Имя матрицы и размеры: R(K,N)
Условия и ограничения: k меньше либо равно 20,N меньше либо равно 10.
Цитата:
Program pr2;
var
r:array[1..20,1..10] of integer;
mi,mc,mxi,mxc,i,c:integer;
begin
mxi:=1;
mxc:=1;
for i:=1 to 20 do
begin
for c:=1 to 10 do
begin
if(r[i,c]>max) then
begin
mxi:=i;
mxc:=c;
end;
if(r[i,c]<min) then
begin
mi:=i;
mc:=c;
end;
end;
end;
i:=r[mi,mc];
r[mi,mc]:=r[mxi,mxc];
r[mxi,mxc]:=i;
end;
var
r:array[1..20,1..10] of integer;
mi,mc,mxi,mxc,i,c:integer;
begin
mxi:=1;
mxc:=1;
for i:=1 to 20 do
begin
for c:=1 to 10 do
begin
if(r[i,c]>max) then
begin
mxi:=i;
mxc:=c;
end;
if(r[i,c]<min) then
begin
mi:=i;
mc:=c;
end;
end;
end;
i:=r[mi,mc];
r[mi,mc]:=r[mxi,mxc];
r[mxi,mxc]:=i;
end;
3) Вычеслить суммы элементов верхней треугольной матрицы для матриц A(10;10),B(15,15)
Выполнить с импользованием подпрограаммы-процедуры.
3ю вообще не знаю как начать(*(
ЗАРАНЕЕ БЛАГОДАРЕН!!!ОЧЕНЬ СИЛЬНО ПОМОЖЕТЕ...А то ппц скок лаб задали...а я ток 3 сделал,и то с помощью...плохо шарю в паскале
ЗАДОЛЖНОСТЕЙ ДО...ппц скок кароче,
умираю...((
Помогите плиз!