Сделайте замену переменных с условиями. Program asd; USES crt; Const n=4; Var A:array[1..n,1..n] of integer; i,j,s:integer; BEGIN Сlrscr; Randomize; for i:=1 to n do begin for j:=1 to n do begin A[i,j]:=ABS(Random(2)-1); Write(A[i,j]:4); end; Writeln; end; Writeln; for i:=1 to n do begin for j:=1 to n do begin If A[i,j]=0 then A[i,j]:=1 else A[i,j]:=0; Write(A[i,j]:4); end; Writeln; end; END.
Рабо́чий стол (англ. desktop) — в компьютерной терминологии основное окно графической среды пользователя вместе с элементами, добавляемыми в него этой средой.
Обычно на рабочем столе отображаются основные элементы управления графической средой и, опционально, какое-либо фоновое изображение.
В некоторых рабочих средах (например, в MS Windows или в рабочих средах, удовлетворяющих требованиям freedesktop.org — KDE, GNOME и т. п.) с рабочим столом ассоциируется определённый каталог в файловой структуре компьютера (при этом обычно можно перетащить файл из стандартного для данной среды файлового менеджера на рабочий стол, и он будет туда скопирован). Ассоциированный каталог обычно находится в личной папке пользователя.
Так как рабочий стол практически всегда виден (либо его можно увидеть, свернув открытые окна), его используют для хранения часто использующихся файлов, документов и ссылок/ярлыков на них. Определение рабочего стола иногда расширяют, включая в него панель задач.
С точки зрения оконной системы рабочий стол может не являться окном низшего уровня (в системах Windows это можно заметить, завершив процесс «explorer.exe»).
Название «Рабочий стол» (точнее, «крышка рабочего стола», «столешница» — калька с англ. desktop) происходит от сравнения окон со стопкой бумаг, лежащих на столе.
const n=10; var i,k,min,max:integer; x,y:array[1..n]of integer; z:array[1..2*n]of integer;
function four(n:integer):string; var s:string; begin repeat s:=s+IntToStr(n mod 4); n:=n div 4; until n=0; result:=ReverseString(s); end;
begin for i:=1 to n do begin x[i]:=random(-10,10); y[i]:=random(-10,10); if (x[i] mod 2=0) and (x[i]>0) then begin k:=k+1; z[k]:=x[i]; if k=1 then begin min:=z[1]; max:=z[1]; end; if z[k]>max then max:=z[k]; if z[k]<min then min:=z[k]; end; if (y[i] mod 2=0) and (y[i]>0) then begin k:=k+1; z[k]:=y[i]; if k=1 then begin min:=z[1]; max:=z[1]; end; if z[k]>max then max:=z[k]; if z[k]<min then min:=z[k]; end; end; write('Массив X:'); for i:=1 to n do write(x[i]:4); writeln; write('Массив Y:'); for i:=1 to n do write(y[i]:4); writeln; write('Массив Z:'); for i:=1 to k do write(z[i]:4); writeln; write('Измененный массив Z:'); for i:=1 to k do begin if z[i]=min then z[i]:=max else if z[i]=max then z[i]:=min; write(z[i]:4); end; writeln; write('Массив Z по основанию 4:'); for i:=1 to k do write(four(z[i]):4); end.
Program asd;
USES crt;
Const n=4;
Var A:array[1..n,1..n] of integer;
i,j,s:integer;
BEGIN
Сlrscr;
Randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
A[i,j]:=ABS(Random(2)-1);
Write(A[i,j]:4);
end;
Writeln;
end;
Writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin If A[i,j]=0 then A[i,j]:=1
else
A[i,j]:=0;
Write(A[i,j]:4);
end;
Writeln;
end;
END.