Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Miller61
0 / 0 / 0
Регистрация: 11.03.2010
Сообщений: 10
1

В последовательности A1,..,An все положительные элементы увеличить на 5, а все остальные заменить на 1.

11.03.2010, 18:30. Просмотров 640. Ответов 4
Метки нет (Все метки)

Даны натуральное число n, действительные числа A1,..,An. В последовательности A1,..,An все положительные элементы увеличить на 5, а все остальные заменить на 1.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.03.2010, 18:30
Ответы с готовыми решениями:

Заменить все отрицательные элементы массива 0, а положительные увеличить на 2
Одномерный массив из 10 элементов заполнить случайным образом числами от -5 до...

В одномерном массиве все отрицательные элементы увеличить в пять раз, а все положительные элементы уменьшить в два раза.
В одномерном массиве все отрицательные элементы увеличить в пять раз, а все...

В одномерном массиве все положительные элементы увеличить в три раза, а все отрицательные элементы уменьшить в восемь раз
1. Ввести одномерный массив поэлементно с помощью клавиатуры или получить его,...

В одномерном массиве все положительные элементы увеличить в три раза, а все отрицательные элементы уменьшить в восемь раз.
Здраствуйте мне очень срочно нужна ваша помощь! 1)В одномерном массиве все...

В одномерном массиве все отрицательные элементы увеличить в пять раз, а все положительные элементы уменьшить в два раза
В одномерном массиве все отрицательные элементы увеличить в пять раз, а все...

4
Snoopy
1912 / 1071 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
11.03.2010, 18:36 2
Pascal
1
2
3
4
5
for i:=1 to n do
 if a[i]>0 then
  a[i]:=a[i]+5
 else
  a[i]:=1;
1
Miller61
0 / 0 / 0
Регистрация: 11.03.2010
Сообщений: 10
11.03.2010, 19:21  [ТС] 3
сделайте пожалуйста целиком
0
Snoopy
1912 / 1071 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
11.03.2010, 19:31 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var a:array[1..100] of integer;
   i,n:integer;
begin
Write('n=');
Readln(n);
for i:=1 to n do
 Readln(a[i]);
for i:=1 to n do
 if a[i]>0 then
  a[i]:=a[i]+5
 else
  a[i]:=1;
for i:=1 to n do
 Write(a[i]:4);
end.
1
Miller61
0 / 0 / 0
Регистрация: 11.03.2010
Сообщений: 10
11.03.2010, 20:00  [ТС] 5
огромное спасибо))
0
11.03.2010, 20:00
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.03.2010, 20:00

В одномерном массиве все отрицательные элементы увеличить в пять раз, а все положительные элементы уменьшить в два раза
В одномерном массиве все отрицательные элементы увеличить в пять раз, а все...

В одномерном массиве все отрицательные элементы увеличить в пять раз, а все положительные элементы уменьшить
1 Ввести одномерный массив поэлементно с помощью клавиатуры или получить его,...

Упорядочить элементы файла так, чтобы сначала следовали все положительные компоненты, а затем все остальные
составить программы с помощью которых: -сформировать файл из целых чисел,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru