Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
katareva
0 / 0 / 0
Регистрация: 19.03.2016
Сообщений: 22
1

В массиве вещественных чисел элементы с нечетными номерами заменить их квадратным корнем

13.06.2016, 18:19. Просмотров 341. Ответов 3
Метки нет (Все метки)

Дан массив вещественных чисел.Все элементы с нечетными номерами заменить на их квадратный корень.Помогите пожалуйста! Срочно нужно.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2016, 18:19
Ответы с готовыми решениями:

В одномерном массиве, состоящем из n целых чисел, заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1.
В одномерном массиве, состоящем из n целых чисел, заменить элементы с четными...

В заданном массиве чисел заменить элементы с нечетными номерами на квадраты их номеров
Одномерные массивы. В заданном массиве чисел заменить элементы с нечетными...

Заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1
1. В одномерном массиве, состоящем из n целых чисел, заменить элементы с...

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

В линейном массиве вещественных чисел a(n) заменить все элементы, большие 10 на число k
2. В линейном массиве вещественных чисел a(n) заменить все элементы, большие 10...

3
Peoples
1347 / 836 / 749
Регистрация: 06.02.2016
Сообщений: 2,232
Записей в блоге: 17
Завершенные тесты: 4
13.06.2016, 18:59 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program pr;
const
  Csize = 100;
var
  a: array [1..Csize] of real;
  i, n: integer;
 
begin
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(21);
    write(' ',a[i]:3);
  end;
  for i := 1 to n do
    if i mod 2 <> 0 then
    begin
      a[i] := sqrt(a[i]);
    end;
    writeln;
  writeln('Изменённый массив');
  for i := 1 to n do
    write('  ',a[i]:3:2);
end.
0
magirus
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
27954 / 15675 / 959
Регистрация: 15.09.2009
Сообщений: 67,837
Записей в блоге: 78
13.06.2016, 19:03 3
katareva, прекратите дублировать темы.
0
ezhukov67
22 / 22 / 39
Регистрация: 10.05.2014
Сообщений: 52
13.06.2016, 19:08 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses  Crt;
const n=10;
type  Tmass=array[1..n] of Real;
var   a:Tmass;
      i:integer;
begin
      ClrScr;
       Writeln('Ichodniy massiv:');
        Writeln;
         Randomize;
       for i:=1 to n do
        begin
          a[i]:=Random(10000)/100;
          Write(a[i]:7:2);
        end;
        Writeln; Writeln;
       Writeln('Konecniy massiv:');
        Writeln;
       for i:=1 to n do
        begin
          if (i mod 2)<>0
           then a[i]:=sqrt(a[i]);
          Write(a[i]:7:2);
        end;
       ReadKey;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.06.2016, 19:08

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

Дан одномерный массив Zn. Все элементы с нечетными значениями заменить суммой элементов с четными номерами
Дан одномерный массив Zn. Все элементы с нечетными значениями заменить суммой...

Задан массив с количеством элементов N. Вывести элементы с нечетными номерами, являющиеся нечетными
Где ошибка program ffwrewre4; uses crt; const n=20; var a:array of...


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

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

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