Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.72/29: Рейтинг темы: голосов - 29, средняя оценка - 4.72
0 / 0 / 0
Регистрация: 27.11.2013
Сообщений: 31
1

Одномерный массив 15 элементов заполнить случайными значениями, вывести его на экран

15.12.2013, 21:04. Просмотров 5902. Ответов 7
Метки нет (Все метки)

Одномерный массив 15 элементов заполнить случайными значениями, вывести его на экран.
Определить количество элементов, значения которых больше суммы соседних элементов (предыдущего и последующего).

[PASCAL]Var
mas:Array [1...15] of integer;
...PASCAL]-дальше решить не могу(
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.12.2013, 21:04
Ответы с готовыми решениями:

Заполнить одномерный массив случайными числами без указания диапазона и вывести на экран консольного вывода
Заполнить одномерный массив случайными числами без указания диапазона и вывести на экран...

объявить массив из 100 чисел, заполнить их случайными числами. вывести на экран по 10 элементов в строке.
объявить массив из 100 чисел, заполнить их случайными числами. вывести на экран по 10 элементов в...

Заполнить массив из 6 элементов случайными неповторяющимися целочисленными значениями от 1 до 49
Задание к модулю 16 : Написать программу, которая заполняет массив из 6 элементов случайными...

Дан двумерный массив A[5,6]. Заполнить его случайными числами в промежутке от 30 до 100, сравнить суммы элементов столбцов, вывести сумму наибольшего
Дан двумерный массив A. Заполнить его случайными числами в промежутке от 30 до 100, сравнить суммы...

__________________
7
25 / 25 / 9
Регистрация: 16.07.2012
Сообщений: 304
Записей в блоге: 1
15.12.2013, 21:22 2
Pascal
1
2
3
4
5
6
7
8
9
10
var
x:array [1..15] of real;
i:integer;
begin
for i:=1 to 15 do begin
x[i]:=random;
writeln('massiv=',x[i]);
end;
readln;
end.
Добавлено через 1 минуту
Pascal
1
2
3
4
5
6
7
8
9
10
var
x:array [1..15] of integer;
i:integer;
begin
for i:=1 to 15 do begin
x[i]:=random(100)-10;
writeln('massiv=',x[i]);
end;
readln;
end.
для целых чисел
1
0 / 0 / 0
Регистрация: 27.11.2013
Сообщений: 31
15.12.2013, 21:40  [ТС] 3
а определить количество элементов, значения которых больше суммы соседних элементов сможешь?
0
25 / 25 / 9
Регистрация: 16.07.2012
Сообщений: 304
Записей в блоге: 1
15.12.2013, 21:45 4
Добавлено через 2 минуты
Определить количество элементов массива, значения которых больше суммы соседних элементов

Добавлено через 48 секунд
Цитата Сообщение от Sergey1996 Посмотреть сообщение
а определить количество элементов, значения которых больше суммы соседних элементов сможешь?
для начала ищите на форуме
1
0 / 0 / 0
Регистрация: 27.11.2013
Сообщений: 31
15.12.2013, 21:55  [ТС] 5
ну т. е. тут элементы-это исключительно числа. например в этой последовательности чисел (массиве): 1, 3, 2, 4, 1, 7, 5, 3, 8, 6, 3, 2, 8, 4, 1- здесь количество чисел который больше суммы соседних чисел три-это числа 4, 7, 8, что то подобное нужно вывести с помощью паскаля

Добавлено через 3 минуты
да я уже где только не искал, везде не суммы, а прост "больше значений соседних чисел", а то что вы ссылку дали, там функции sumLR, inc - мы не проходили, должно решатся как то проще и короче
0
25 / 25 / 9
Регистрация: 16.07.2012
Сообщений: 304
Записей в блоге: 1
15.12.2013, 22:00 6
Цитата Сообщение от Sergey1996 Посмотреть сообщение
ну т. е. тут элементы-это исключительно числа. например в этой последовательности чисел (массиве): 1, 3, 2, 4, 1, 7, 5, 3, 8, 6, 3, 2, 8, 4, 1- здесь количество чисел который больше суммы соседних чисел три-это числа 4, 7, 8, что то подобное нужно вывести с помощью паскаля

Добавлено через 3 минуты
да я уже где только не искал, везде не суммы, а прост "больше значений соседних чисел", а то что вы ссылку дали, там функции sumLR, inc - мы не проходили, должно решатся как то проще и короче
функция sumLR- это не стандартная функция паскаля. его надо самому писать. а функция inc- это увеличение значения на единицу. пример x:=0; inc(x); ответ x=1
1
0 / 0 / 0
Регистрация: 27.11.2013
Сообщений: 31
15.12.2013, 22:03  [ТС] 7
извините что занял у вас время, благодарен за помощь)
0
25 / 25 / 9
Регистрация: 16.07.2012
Сообщений: 304
Записей в блоге: 1
15.12.2013, 22:04 8
Цитата Сообщение от Sergey1996 Посмотреть сообщение
извините что занял у вас время, благодарен за помощь)
рад был помочь))) успехов в работе
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.12.2013, 22:04

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Одномерный массив 8 элементов заполнить значениями с клавиатуры
Одномерный массив 8 элементов заполнить значениями с клавиатуры. Определить количество простых...

Заполнить массив Х(10) случайными значениями. Организовать вывод на экран. Присвоить указателю адрес начала размещения массива в памяти. Напечатат
Заполнить массив Х(10) случайными значениями. Организовать вывод на экран. Присвоить указателю...

Заполнить матрицу (4х4) случайными значениями от 12 до 18 включительно. Вывести сумму значений элементов каждого столбца матрицы
Пожалуйста исправьте ошибки: 1.Задать двумерный массив (4х4) случайными значениями от 12 до 18...

Заполнить массив С(10) случайными значениями, изменить значение элемента и напечатать его новое значение
Заполнить массив С(10) случайными значениями.Присвоить указателю 3-го элемента содержимое 10-го...


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

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

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