0 / 0 / 0
Регистрация: 07.05.2012
Сообщений: 7

Возвести в квадрат все нечетные отрицательные числа массива

08.05.2012, 18:12. Показов 1613. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В массиве А(n), состоящем из целых чисел, возвести в квадрат все нечетные отрицательные числа, а положительные четные заменить на единицу.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
08.05.2012, 18:12
Ответы с готовыми решениями:

Возвести в квадрат все нечетные отрицательные числа
В массиве A(n), состоящий из вещественных чисел, возвести в квадрат все нечетные отрицательные числа, а положительные четные заменить на...

Массив. Возвести в квадрат все нечетные отрицательные числа, а положительные четные заменить на единицу
В массиве A(n), состсящим из целых чисел, возвести в квадрат все нечетные отрицательные числа, а положительные четные заменить на единицу.

Все отрицательные числа массива возвести в квадрат
Задание : Разработать модуль, содержащий процедуру формирования массива. ввода, процедуры вычисления произведения четных элементов,...

3
08.05.2012, 20:35
 Комментарий модератора 
Мадам Ксения Токарева, еще раз создадите свою тему не в Турбопаскале, а в разделе О форуме и сайтах - накажу. Надоело переносить !
1
 Аватар для Krot-buterbrod
88 / 88 / 75
Регистрация: 21.08.2011
Сообщений: 151
08.05.2012, 20:45
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const n=10;
var a: array [1..n] of integer;
   i: integer;
begin
   randomize;
   for i:=1 to n do begin
      a[i]:=random(10)-5;
      write(a[i]:4);
   end;
   writeln;
   for i:=1 to n do begin
      if odd(i) then
         if a[i]<0 then a[i]:=a[i]*a[i];
      if odd(i)=false then
         if a[i]>=0 then a[i]:=1;
      write(a[i]:4);
   end;
end.
0
Фрилансер
 Аватар для CodeR
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,603
Записей в блоге: 1
08.05.2012, 20:47
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program mas;
Uses Crt;
Const n=10;
Var A:array[1..n] of integer;
    i:integer;
Begin
    ClrScr;
    Randomize;
    For i:=1 to n do Begin
    A[i]:=random(10)-5;
    write(A[i]:4);
    End;
    writeln;writeln('   -------Преобразованный массив-------');
    For i:=1 to n do Begin
    if (i mod 2 <> 0)and(A[i]<0) then A[i]:=sqr(A[i]);
    if (i mod 2 = 0)and(A[i]>0) then A[i]:=1;
    write(A[i]:4);
    End;
    readln;
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
08.05.2012, 20:47
Помогаю со студенческими работами здесь

Массив. Возвести в квадрат все нечетные отрицательные, а положительные четные заменить на единицу
В массиве А(n), состоящем из целых чисел, возвести в квадрат все нечетные отрицательные числа, а положительные четные заменить на единицу.

Возвести в квадрат число, если все цифры этого числа нечетные и неотрицательные
дано четырехзначное число возвести в квадрат число если все цифры этого числа нечетные и неотрицательные в противном случае найти сумму...

Возвести в квадрат отрицательные числа и в третью степень
13. Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять). помогите...

Возвести в квадрат отрицательные числа, в куб положительные числа
Даны 3 целые числа,возвести в квадрат отрицательные числа,в куб положительные числа.Результат вывести на экран

Возвести в квадрат отрицательные числа и в третью степень — положительные
Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять).


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

Новые блоги и статьи
Как использовать Bluetooth-модуль HC-05 с Arduino
Wired 08.07.2025
Bluetooth - это технология, созданная чтобы заменить кабельные соединения. Обычно ее используют для связи небольших устройств: мобильных телефонов, ноутбуков, наушников и т. д. Работает она на частоте. . .
Руководство по структурам данных Python
AI_Generated 08.07.2025
Я отчетливо помню свои первые серьезные проекты на Python - я писал код, он работал, заказчики были относительно довольны. Но однажды мой наставник, взглянув на мою реализацию поиска по огромному. . .
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах
Programma_Boinc 08.07.2025
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Опубликовано: 07. 07. 2025 Рубрика: Uncategorized Автор: AlexA Статья размещается на сайте с разрешения. . .
Раскрываем внутренние механики Android с помощью контекста и манифеста
mobDevWorks 07.07.2025
Каждый Android-разработчик сталкивается с Context и манифестом буквально в первый день работы. Но много ли мы задумываемся о том, что скрывается за этими обыденными элементами? Я, честно говоря,. . .
API на базе FastAPI с Python за пару минут
AI_Generated 07.07.2025
FastAPI - это относительно молодой фреймворк для создания веб-API, который за короткое время заработал бешеную популярность в Python-сообществе. И не зря. Я помню, как впервые запустил приложение на. . .
Основы WebGL. Раскрашивание вершин с помощью VBO
8Observer8 05.07.2025
На русском https:/ / vkvideo. ru/ video-231374465_456239020 На английском https:/ / www. youtube. com/ watch?v=oskqtCrWns0 Исходники примера:
Мониторинг микросервисов с OpenTelemetry в Kubernetes
Mr. Docker 04.07.2025
Проблема наблюдаемости (observability) в Kubernetes - это не просто вопрос сбора логов или метрик. Это целый комплекс вызовов, которые возникают из-за самой природы контейнеризации и оркестрации. К. . .
Проблемы с Kotlin и Wasm при создании игры
GameUnited 03.07.2025
В современном мире разработки игр выбор технологии - это зачастую балансирование между удобством разработки, переносимостью и производительностью. Когда я решил создать свою первую веб-игру, мой. . .
Создаем микросервисы с Go и Kubernetes
golander 02.07.2025
Когда я только начинал с микросервисами, все спорили о том, какой язык юзать. Сейчас Go (или Golang) фактически захватил эту нишу. И вот почему этот язык настолько заходит для этих задач: . . .
C++23, квантовые вычисления и взаимодействие с Q#
bytestream 02.07.2025
Я всегда с некоторым скептицизмом относился к громким заявлениям о революциях в IT, но квантовые вычисления - это тот случай, когда революция действительно происходит прямо у нас на глазах. Последние. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru