Обратите внимание на цикл
for i:=n downto p do // вставка p
for j:=1 to n+1 do
c[i+1,j]:=c[i,j];
У Вас массив с описан как <span>c:array[1..n,1..n+1] of integer;
В то же время, первый индекс у Вас в цикле меняется от n+1 до p+1 (n+1 выходит за границу), а второй - от 1 до n+1 (это допустимо)</span>
утюг-гладить белье
мялка - мять белье.
морозилка - замораживать подукты
печка - разогревать продукты
<span>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);
<span>end.</span></span>
4) мышь , клавиатура, монитор
5) мышь , планшет, монитор, клавиатура
6)русские буквы, арабские, римские цифры, + - = ,
Тип данных Длина Диапазон значений
байт
ЦЕЛЫЕ ТИПЫ
integer 2 -32768...32767
byte 1 0...255
word 2 0...65535
shortint 1 -128...127
longint 4 -2147483648...2147483647
ВЕЩЕСТВЕННЫЕ ТИПЫ
real 6 2,9 * 10^-39 ... 1,7 * 10^38
single 4 1,5*10^-45 ... 3,4*10^38
double 8 5*10^-324 ... 1,7*10^308
extended 10 3,4*10^-4932 ... 1,1*10^4932
ЛОГИЧЕСКИЙ ТИП
boolean 1 true, false
СИМВОЛЬНЫЙ ТИП
char 1 все символы из таблицы ASCII