1.Составить программу, которая увеличивает каждый элемент настоящей таблице х [1 .. 10] на 1. 2. составить программу, замены положительных элементов настоящей таблице х [1 .. 10] на 0. 3.составить программу, замены отрицательно...
1.Составить программу, которая увеличивает каждый элемент настоящей таблице х [1 .. 10] на 1. 2. составить программу, замены положительных элементов настоящей таблице х [1 .. 10] на 0. 3.составить программу, замены отрицательного элементов настоящей таблице х [1 .. 10] на их квадрат. 4.составить прогрумму, которая увеличивает на 2 все элементы настоящей таблице х [1 .. 10], которые больше 10.
Гость
Ответ(ы) на вопрос:
Гость//первая программа 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.
Не нашли ответ?
Похожие вопросы