Program primer; procedure random(c,x,y:integer; var r:integer); begin case c of 1 : r:=Random(ABS(Y)+ABS(x)+1)+x; 2 : r:=Random(ABS(Y)+ABS(x)+1)+y; 3 : r:=Random(Y-x+1)+x; 4 : r:=Random(x-y+1)+y; 5 : r:=Random(x+y); 6 : r:=Random(ABS(x+y))-ABS(x+y); 7 : r:=x; 8 : r:=Random(ABS(ABS(x)-ABS(y)))-ABS(x); 9 : r:=Random(ABS(ABS(x)-ABS(y)))-ABS(y); end; end; var a,b: array of array of integer; i,j,x,y,c,m,p,sum:integer; begin Randomize; sum:=0; writeln('Кол-во строк и столбцов массива? //X,Y\\ '); read(i,j); //Размерность массива writeln('Диапазон чисел //от X,до Y\\ '); read(x,y); //и диапазон генерации вводятся с клавиатуры. if (x=y) then c:=7 else if(x<0) and (y<0) then if (x<y) then c:=8 else c:=9 else if (x=0) or (y=0) then if(x<0) or (y<0) then c:=6 else c:=5 else if(x<0) or (y<0) then if (x<y) then c:=1 else c:=2 else if (x<y) then c:=3 else c:=4; SetLength(a,i); for m:=0 to i-1 do SetLength(a[m],j); SetLength(b,i); for m:=0 to i-1 do SetLength(b[m],j); for m:=0 to i-1 do begin writeln(); for p:=0 to j-1 do begin random(c,x,y,a[m,p]); {Заполнить двумерный массив случайными числами.} sum:=sum+a[m,p]; {вычисляет сумму всех элементов массива} write (a[m,p]:3,' ':3); end; end; c:=0; writeln('summa=',sum); for m:=0 to i-1 do begin {Затем организовать новый массив В } writeln(); for p:=0 to j-1 do begin if (a[m,p] <0) then begin b[m,p]:=1; {в котором заменить отрицательные элементы исходного массива на 1} inc(c); {Подсчитать количество замен. } end else b[m,p]:=a[m,p]; {а значения остальных элементов оставить без изменения } write(b[m, p]:3, ' ':3); end; end; writeln('kol=',c); a:=NIL; b:=NIL; end. // ABC Pascal
ответ
Смотри объяснения ниже:
Объяснение:
1) Устанавливаешь отступы ползунками около листа
2)Вводишь свой текст
3)Нажимаешь на дискету с ручкой в меню, выбираешь нужную папку и сохраняешь под тем же именем
4)закрываешь WORD
5)В проводнике ишешь свою сохранку из пункта 3
6)кликаешь
7)Ентером ставишь абзатцы, как тебе кажется правильным
8)В начале первой строки ставишь ентер, на новой строке пишешь название текста
9)выделяешь заголовок, нажимаешь "главная", там где жирный, курсив, подчёркнутый (разные буквы), выбираешь подчёркивание
10) Нажимаешь на дискету со стрелочками
Первое задание выполнено!
На второе пока нет времени, может, потом добавлю
Прости за неудобства, сам устал
procedure random(c,x,y:integer; var r:integer);
begin
case c of
1 : r:=Random(ABS(Y)+ABS(x)+1)+x;
2 : r:=Random(ABS(Y)+ABS(x)+1)+y;
3 : r:=Random(Y-x+1)+x;
4 : r:=Random(x-y+1)+y;
5 : r:=Random(x+y);
6 : r:=Random(ABS(x+y))-ABS(x+y);
7 : r:=x;
8 : r:=Random(ABS(ABS(x)-ABS(y)))-ABS(x);
9 : r:=Random(ABS(ABS(x)-ABS(y)))-ABS(y);
end;
end;
var
a,b: array of array of integer;
i,j,x,y,c,m,p,sum:integer; begin
Randomize;
sum:=0;
writeln('Кол-во строк и столбцов массива? //X,Y\\ ');
read(i,j); //Размерность массива
writeln('Диапазон чисел //от X,до Y\\ ');
read(x,y); //и диапазон генерации вводятся с клавиатуры.
if (x=y) then
c:=7
else
if(x<0) and (y<0) then
if (x<y) then
c:=8
else
c:=9
else
if (x=0) or (y=0) then
if(x<0) or (y<0) then
c:=6
else
c:=5
else
if(x<0) or (y<0) then
if (x<y) then
c:=1
else
c:=2
else
if (x<y) then
c:=3
else
c:=4;
SetLength(a,i);
for m:=0 to i-1 do
SetLength(a[m],j);
SetLength(b,i);
for m:=0 to i-1 do
SetLength(b[m],j);
for m:=0 to i-1 do begin
writeln();
for p:=0 to j-1 do begin
random(c,x,y,a[m,p]); {Заполнить двумерный массив случайными числами.}
sum:=sum+a[m,p]; {вычисляет сумму всех элементов массива}
write (a[m,p]:3,' ':3);
end;
end;
c:=0;
writeln('summa=',sum);
for m:=0 to i-1 do begin {Затем организовать новый массив В }
writeln();
for p:=0 to j-1 do begin
if (a[m,p] <0) then begin
b[m,p]:=1; {в котором заменить отрицательные элементы исходного массива на 1} inc(c); {Подсчитать количество замен. }
end
else
b[m,p]:=a[m,p]; {а значения остальных элементов оставить без изменения }
write(b[m, p]:3, ' ':3);
end;
end;
writeln('kol=',c);
a:=NIL;
b:=NIL;
end.
// ABC Pascal