Надо написать программу в visual basic дан двумерный массив размером n*m, заполненный случайным образом. 1. заменить отрицательный элемент каждого столбца нулем 2. вставить после каждого столбца, содержащего максимальный по модулю элемент, строку из нулей. 3. удалить из него каждую строку, содержащую элемент, кратный трем 4. поменять местами первый и последний столбцы.
Program Scheme;
Var xn,xk,dx,x,s,p,k,y: Extended;
Label rep;
Begin
write('Enter xn: ');
readln(xn);
write('Enter xk: ');
readln(xk);
write('Enter dx: ');
readln(dx);
s:=0; p:=1; x:=xn; k:=0;
rep:
If x <= xk then
Begin
y:=exp(sin(x))*cos(x);
writeln('x = ',x:0:3, ' y = ', y:0:3);
if y >= 0 then
s:=s+y;
if y <> 0 then
p:=p*y;
x:=x+dx;
goto rep;
End
else
Begin
writeln('S = ', s:0:3, ' P = ', p:0:3, ' k = ', k:0:3);
exit;
End;
End.
Объяснение: Если есть вопросы, пишите в лс.