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

Каждый элемент массива, больший 10, заменить на его квадратный корень

21.12.2010, 21:51. Просмотров 834. Ответов 3
Метки нет (Все метки)

Дан массив вещественных чисел.
Каждый элемент,больший 10,заменить на его квадратный корень.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.12.2010, 21:51
Ответы с готовыми решениями:

Каждый элемент массива, больший 10, заменить на его квадратный корень
Дан массив вещественных чисел.Каждый элемент,больший 10,заменить на его...

Каждый элемент, больший 10, заменить на его квадратный корень
дан массив вещественных чисел.Каждый элемент, больший 10, заменить на его...

Заменить каждый элемент массива на квадратный корень данного элемента
Заменить каждый элемент массива на корень квадратный данного элемента. (если...

Заменить каждый элемент массива его обращением
Дан массив из n целых чисел. Заменить каждый элемент массива его обращением...

В одномерном массиве каждый элемент больший 100 заменить квадратным корнем этого элемента
В одномерном массиве каждый элемент больший 100 заменить квадратным корнем...

3
atomnic
0 / 0 / 1
Регистрация: 21.12.2010
Сообщений: 5
21.12.2010, 22:26 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program summa; 
Var k:real;
   a: array [1..n] of real;
   I, n: byte; 
Begin 
   writeln('Введите количество n');
   Readln(n); 
   For i:=1 to n do 
      a[i]:= random(30);
begin
for i:=1 to n do
 if a[i] >10 then
k:=a[i]*a[i];
end;
writeln(k);
end.
вроде так . проверь ее
0
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
21.12.2010, 22:54 3
квадратный корень.
atomnic
а не квадрат
0
atomnic
0 / 0 / 1
Регистрация: 21.12.2010
Сообщений: 5
21.12.2010, 23:24 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от SuPeR XaKer Посмотреть сообщение
atomnic
а не квадрат
прости

Добавлено через 3 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program summa; 
Var k:real;
a: array [1..n] of real;
I, n: byte; 
Begin 
writeln('Введите количество n');
Readln(n); 
For i:=1 to n do 
a[i]:= random(30);
begin
for i:=1 to n do
if a[i] >10 then
k:=sqrt(a[i]);
end;
writeln(k);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.12.2010, 23:24

Все элементы массива с нечетными номерами заменить на их квадратный корень
Помогите с решением! Задача на одномерный массив. Массивы не проходили,...

Каждый отрицательный элемент массива заменить на его абсолютную величину
Дан массив вещественных чисел. а) Каждый отрицательный элемент заменить на его...

Заменить каждый элемент массива на среднее арифметическое элемента и его соседей
Здравствуйте. Помогите пожалуйста решить задачи какие сможете, завтра зачёт, а...


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

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

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