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

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

22.03.2013, 10:16. Просмотров 974. Ответов 1
Метки нет (Все метки)

задача4-Сформировать одномерный целочисленный массив, содержащий случайные значения элементов в диапазоне от [-375;250]. Все элементы стоящие на нечетных местах разделить на случайное число от -20 до 35. А четные элементы увеличить в два раза.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.03.2013, 10:16
Ответы с готовыми решениями:

Элементы массива Х[i] стоящие на четных местах переписать в массив Y[i] а стоящие на нечетных местах в Z[i]
Элементы массива Х стоящие на четных местах переписать в массив Y а стоящие на...

Удалить из массива все четные элементы стоящие на нечетных местах.
Дан массив целых чисел. Удалить из него все четные элементы стоящие на нечетных...

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

Найти количество строк, в которых все элементы, стоящие на четных местах, больше среднего арифметического элементов, стоящих на нечетных местах.
Дана матрица натуральных чисел А(N,N). Найти количество строк, в которых все...

Элементы массива стоящие на нечетных местах умножить на 5
Здравствуйте. Помогите пожалуйста с программой. Элементы массива стоящие на...

1
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,720
Записей в блоге: 1
23.03.2013, 12:24 2
Лучший ответ Сообщение было отмечено orehh как решение

Решение

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
Var A:array[1..100] of integer;
    i,j,n,t:integer;
Begin
    write('Кол-во элементов: ');readln(n);
    writeln('Исходный массив');
    For i:=1 to n do
    Begin
      A[i]:=random(626)-375;
      write(A[i]:5);
    End;
    writeln;
    writeln('Преобразованный');
    For i:=1 to n do
    Begin
      if odd(i) then 
      Begin
        t:=random(56)-20;
        if t<>0 then A[i]:=A[i] div t
         else A[i]:=0;
      End
      else A[i]:=A[i]*2;
      write(A[i]:5);
    End;
    readln;
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.03.2013, 12:24

Удалить положительные элементы массива, стоящие на нечетных местах
Помогите сделать программу в паскале! удалить положительные элементы массива,...

Массив: Удалить из массива четные элементы,стоящие на нечетных местах.
1)четные,стоящие на нечетных местах. 2) начиная с к1 по к2(к1 и к2 вводяться с...

Все элементы, стоящие на нечетных местах и предшествующие последнему по порядку минимуму, умножить на максимум
Задача: Все элементы, стоящие на нечетных местах и предшествующие последнему по...


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

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

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