Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
Олечка буся
0 / 0 / 0
Регистрация: 16.12.2010
Сообщений: 6
1

Увеличить в 2 раза элементы массива кратные 5,остальные элементы массива уменьшить в 2 раза

16.12.2010, 23:21. Просмотров 1297. Ответов 1
Метки нет (Все метки)

Увеличить в 2 раза элементы массива кратные 5,остальные элементы массива уменьшить в 2 раза

Желательно полную программу с объяснениями... Заранее спасибо!
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.12.2010, 23:21
Ответы с готовыми решениями:

Наибольший и наименьший элементы массива увеличить в три раза, а все остальные – в два раза
В заданном одномерном массиве X(N) (N<=70) наибольший и наименьший элементы...

Неотрицательные элементы массива m уменьшить в три раза, остальные — возвести в квадрат
Из элементов массива m сформировать массив n того же размера по правилу:...

Неотрицательные элементы массива уменьшить в три раза, остальные возвести в квадрат
из элементов массива M сформировать массив N того же размера по правилу:...

Массив. Чётные элементы массива увеличить в 2 раза, а нечётные увеличить в 3 раза
извините опять нарушаю правила в форуме. эта задача была уже на форуме но она...

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

1
STGE
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
17.12.2010, 00:50 2
Лучший ответ Сообщение было отмечено Олечка буся как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
const n=10;
var a: array[1..n] of real;
      i: byte;
begin
 randomize;
 clrscr;
 writeln ('исходный массив: ');
 for i:=1 to n do
  begin
   a[i]:=random(19)-9;
   write (a[i]:5:1);
  end;
 writeln;
 for i:=1 to n do
  if frac (a[i]/5) = 0 then a[i]:=2 * a[i]
  else a[i]:=a[i]/2;
 writeln ('массив после изменений: ');
 for i:=1 to n do
  write (a[i]:5:1);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2010, 00:50

Увеличить элементы двумерного массива в 3 раза
Привет всем, у меня большая проблема дали задачи по програмированию решить на...

Процедура: все четные элементы массива увеличить в два раза
В массиве все четные элементы увеличить в 2 раза. Пример: из массива A: 1 3 4...

Увеличить элементы массива в 3 раза, кроме элементов из заданного диапазона
Дан одномерный массив состоящий из n-элементов .Все элементы массива кроме...


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

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

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