Первый ищем положительные элементы и меняем им знак)
Программа:
const MAX_N = 1000; // Максимальное количество элементов в массиве
var a: array[1..MAX_N] of integer; i, n: integer; begin // Ввод массива write('Введите размерность массива: '); read(n); writeln('Введите массив: '); for i := 1 to n do read(a[i]); // Обработка массива for i := 1 to n do // Если элемент положительный, то меняем знак if a[i] > 0 then a[i] := -a[i]; // Вывод массива writeln('Полученный массив:'); for i := 1 to n do write(a[i], ' ') end.
Второй каждому элементу присваиваем обратное его модулю число)
Программа:
const MAX_N = 1000; // Максимальное количество элементов в массиве
var a: array[1..MAX_N] of integer; i, n: integer; begin // Ввод массива write('Введите размерность массива: '); read(n); writeln('Введите массив: '); for i := 1 to n do read(a[i]); // Обработка массива for i := 1 to n do a[i] := -abs(a[i]); // Вывод массива writeln('Полученный массив:'); for i := 1 to n do write(a[i], ' ') end.
Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра.. Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие. Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 begin var s1:=ReadReal('Площадь квадрата'); var s2:=ReadReal('Площадь круга'); if pi*s1<2*s2 then Writeln('Квадрат умещается в круге') else Writeln('Квадрат не умещается в круге') end.
Тестовое решение: Площадь квадрата 24.6 Площадь круга 28.4 Квадрат не умещается в круге
Программа:
const
MAX_N = 1000; // Максимальное количество элементов в массиве
var
a: array[1..MAX_N] of integer;
i, n: integer;
begin
// Ввод массива
write('Введите размерность массива: ');
read(n);
writeln('Введите массив: ');
for i := 1 to n do
read(a[i]);
// Обработка массива
for i := 1 to n do
// Если элемент положительный, то меняем знак
if a[i] > 0 then
a[i] := -a[i];
// Вывод массива
writeln('Полученный массив:');
for i := 1 to n do
write(a[i], ' ')
end.
Второй каждому элементу присваиваем обратное его модулю число)
Программа:
const
MAX_N = 1000; // Максимальное количество элементов в массиве
var
a: array[1..MAX_N] of integer;
i, n: integer;
begin
// Ввод массива
write('Введите размерность массива: ');
read(n);
writeln('Введите массив: ');
for i := 1 to n do
read(a[i]);
// Обработка массива
for i := 1 to n do
a[i] := -abs(a[i]);
// Вывод массива
writeln('Полученный массив:');
for i := 1 to n do
write(a[i], ' ')
end.