Дан массив А(10). Все положительные заменить на отрицательные

27.09.2009, 20:11. **Показов** 5262. **Ответов** 7

Студворк — интернет-сервис помощи студентам

Дан массив А(10). Все положительные заменить на отрицательные. Зарание спасибо!

@PAZITIV · 27.09.2009, 20:33

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program massiv;
uses crt;
var a:array [1..10] of integer;
    i:integer;
begin clrscr;
writeln('Заполняем массив');
for i:=1 to 10 do readln(a[i]);
 
for i:=1 to 10  do begin
                a[i]:=-1*a[i];
                end;
for i:=1 to 10 do write(' ',a[i]);
 
readln;
end.

@Давид · 27.09.2009, 21:37

PAZITIV, вводим массив из 10-ти чисел например: 1 7 -12 8 14 -17 0 23 -6 -5
То в итоге получаем -1 -7 12 -8 -14 17 0 -23 6 5
Ваша программа просто меняет знак каждого элемента в массиве.

@Puporev · 27.09.2009, 21:37

Pascal
1
2
for i:=1 to 10  do begin
                a[i]:=-1*a[i];

Это неправильно, все элементы поменяют знак, а надо только у положительных.

Pascal
1
2
for i:=1 to 10  do 
 if a[i]>0 then   a[i]:=-1*a[i];

@Давид · 27.09.2009, 21:39

Соответственно нужна проверка на отрицательность числа!
Например:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program massiv;
uses crt;
var a:array [1..10] of integer;
    i:integer;
begin clrscr;
writeln('Заполняем массив');
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10  do begin
 if a[i]>0 then
                a[i]:=-1*a[i];
                end;
for i:=1 to 10 do write(' ',a[i]);
 
readln;
end.

@Puporev · 27.09.2009, 21:51

Pascal
1
2
3
4
for i:=1 to 10  do begin
 if a[i]>0 then
                a[i]:=-1*a[i];
                end;

Пустяк конечно, но здесь begin end; не нужно, выполняется только 1 оператор.

@PAZITIV · 27.09.2009, 21:57

Нда...,крапаль затупил, но ход мыслей то правильный!!!!

@Puporev · 27.09.2009, 22:02

PAZITIV, Наполовину! Или даже наоборот в 2 раза перевыполнил задание!

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

Ved'ma19

	Дан массив А(10). Все положительные заменить на отрицательные 27.09.2009, 20:11. Показов 5262. Ответов 7 Метки нет (Все метки) Дан массив А(10). Все положительные заменить на отрицательные. Зарание спасибо!

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	27.09.2009, 21:37
	PAZITIV, вводим массив из 10-ти чисел например: 1 7 -12 8 14 -17 0 23 -6 -5 То в итоге получаем -1 -7 12 -8 -14 17 0 -23 6 5 Ваша программа просто меняет знак каждого элемента в массиве. 0

@PAZITIV Реальность Нереальна! 352 / 128 / 7 Регистрация: 02.08.2009 Сообщений: 3,216 Записей в блоге: 1
	27.09.2009, 21:57
	Нда...,крапаль затупил, но ход мыслей то правильный!!!! 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	27.09.2009, 22:02
	PAZITIV, Наполовину! Или даже наоборот в 2 раза перевыполнил задание! 0