Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Лена Лена
0 / 0 / 0
Регистрация: 04.04.2010
Сообщений: 11
#1

Все элементы массива умножить в два раза

04.04.2010, 17:03. Просмотров 892. Ответов 2
Метки нет (Все метки)

Ввести одномерный массив. Все его элементы умножить в два раза;уменьшить на число а;разделить на первый элемент;каждый элемент>10 заменить на его кв.корень.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.04.2010, 17:03
Ответы с готовыми решениями:

Вывести массив на экран. Увеличить все элементы массива A (n) в два раза.
ПК вводит с клавиатуры n чисел и записывает их в массив A (n). Вывести массив...

Дан целочисленный массив размера N. Удалить из массива все элементы, встречающиеся ровно два раза
Дан целочисленный массив размера N. Удалить из массива все элементы,...

Все положительные элементы массива, расположенные правее первого нулевого элемента, увеличить в два раза
10. Все положительные элементы массива а1, а2 , ..., а20, расположенные правее...

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

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

2
Law[L]esS
114 / 111 / 88
Регистрация: 31.10.2009
Сообщений: 191
04.04.2010, 17:14 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const
 n = 10;
var
 a:array[1..n] of integer;
 i,m:integer;
begin
 readln(m);
 for i:= 1 to n do begin
   a[i]:= random(20);
   write(a[i]:3);
   a[i]:=(a[i]*2-m) div a[1];
   if a[i] > 10 then a[i]:= round(sqrt(a[i]));
 end;
 writeln;
 for i:= 1 to n do
 write(a[i]:3);
end.
0
Лена Лена
0 / 0 / 0
Регистрация: 04.04.2010
Сообщений: 11
05.04.2010, 16:32  [ТС] #3
спасибо)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.04.2010, 16:32

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

Умножить все элементы массива, кратные 4, на последний элемент массива
Дан массив целых чисел, содержащий 15 элементов (массив вводить как...

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


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

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

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