//первая программа
var
x:array[1..10] of integer;
i:integer;
begin
for i := 1 to 10 do
begin
write('x[', i, '] = ');
readln(x[i]);
inc(x[i]);
end;
writeln;
writeln('Result');
for i := 1 to 10 do
write(x[i], ' ');
readln;
end.
//вторая программа
var
x:array[1..10] of integer;
i:integer;
begin
for i := 1 to 10 do
begin
write('x[', i, '] = ');
readln(x[i]);
if x[i] > 0 then
x[i] := 0;
end;
writeln;
writeln('Result');
for i := 1 to 10 do
write(x[i], ' ');
readln;
end.
// третья программа
var
x:array[1..10] of integer;
i:integer;
begin
for i := 1 to 10 do
begin
write('x[', i, '] = ');
readln(x[i]);
if x[i] < 0 then
x[i] := x[i] * x[i];
end;
writeln;
writeln('Result');
for i := 1 to 10 do
write(x[i], ' ');
readln;
end.
// четвертая программа
var
x:array[1..10] of integer;
i:integer;
begin
for i := 1 to 10 do
begin
write('x[', i, '] = ');
readln(x[i]);
if x[i] > 10 then
x[i] := x[i] + 2;
end;
writeln;
writeln('Result');
for i := 1 to 10 do
write(x[i], ' ');
readln;
end.
называется системой
Объяснение: