Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
196 / 8 / 3
Регистрация: 30.04.2016
Сообщений: 733
1

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

30.12.2017, 09:59. Показов 1212. Ответов 4
Метки нет (Все метки)

Заполнить случайным образом одномерный массив из n элементов
и определить минимальную сумму среди пар следующих элементов:
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
   1)  1-й элемент – n-й элемент
   2)  2-й элемент – (n – 1)-й элемент
   3)  3-й элемент – (n – 2)-й элемент
   4)  …       Вывести результаты на экран.
{Программа  Var72}
uses Crt;
const N = 8;
Var a: array {1..N] of integer;
           i, S: integer;
begin
ClrScr;
    write(' Массив: ');
         writeln;
for i:= 1 to N do begin
  a{i]:= Random(100) – 10;
     write(a[i]:4);
   end;
     writeln;
  writeln(' Суммы попарно: ');
     i:= 0;
for i:= 0 to N-1 do begin
   S:= a[i + 1] + a[N – i];
     write(S:4);
   end;
  readln
end.
На выходе имеем:
Pascal
1
2
3
4
Массив:
-18   -7   76   10   17   57   21    6
Суммы попарно:
 -4   14  133   27   27  133   14  -4
1. Почему суммы повторяются зеркально;
2. И как полученные суммы превратить в
массив. А уж в массиве найдём и max и min.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.12.2017, 09:59
Ответы с готовыми решениями:

Одномерный массив из 7 элементов заполнить случайным образом числами от 5 до 9
Помогите написать пожалуйста программы! №1. Одномерный массив из 7 элементов заполнить случайным...

Заполнить массив из десяти элементов случайным образом
Помогите пожалуйста решить задачу) Заполнить массив из десяти элементов случайным образом:целыми...

Заполнить массив из 14 элементов случайным образом целыми значениями, лежащими в диапазоне от -8 до 13
Заполнить массив из 14 элементов случайным образом целыми значениями, лежащими в диапазоне от -8 до...

Заполнить массив из 14 элементов случайным образом целыми значениями, лежащими в диапазоне от -8 до 13
Для выбора действия испол. комбинированный список! Заполнить массив из 14 элементов случайным...

4
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
30.12.2017, 10:12 2
Цитата Сообщение от Petro29 Посмотреть сообщение
и определить минимальную сумму среди пар следующих элементов:
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
uses Crt;
const n=8;
var a:array [1..n] of integer;
    i,min:integer;
begin
clrscr;
randomize;
writeln(' Массив: ');
for i:=1 to n do
 begin
  a[i]:=-10+ random(21);
  write(a[i]:4);
 end;
writeln;
writeln(' Суммы попарно: ');
min:=a[1]+a[n];
for i:=1 to n div 2 do
 begin
  write(a[i]+a[n-i+1]:4);
  if a[i]+a[n-i+1]<min then min:=a[i]+a[n-i+1];
 end;
writeln;
write('Минимальная сумма=',min);
  readln
end.
0
196 / 8 / 3
Регистрация: 30.04.2016
Сообщений: 733
07.01.2018, 11:45  [ТС] 3
1) 1-й элемент – n-й элемент
2) 2-й элемент – (n – 1)-й элемент
3) 3-й элемент – (n – 2)-й элемент
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
uses Crt;
const N = 8;
Var a: array {1..N] of integer;
           i, min: integer;
begin
ClrScr;
Randomize;
    write(' Массив: ');
         writeln;
for i:= 1 to N do begin
  a{i]:= Random(100) – 10;
     write(a[i]:4);
   end;
     writeln;
  writeln(' Суммы попарно: ');
    min:= a[1] + a[N];
for i:= 0 to N div 2 do begin
  write([i] + a[[N-i + 1]:4);
if a[i] + a[N-I + 1] < min then min:= a[i] + a[N-I + 1];
   end;
     writeln;
write(' Минимальная сумма среди пар эл-ов: ' , min);
  readln
end.
На выходе имеем:
Pascal
1
2
3
4
5
  Массив:
  -10   -7   76   10   17   57   21    6
  Суммы попарно:
2573   -4   14   133   27
   Минимальная сумма среди пар эл-ов:   -4
Программа хороша, только она с дефектом: почему
печатается число 2573. Откуда оно берётся? Причём
при любых случайных числах в массиве это число
постоянное. И удалить то нечего здесь.
0
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
07.01.2018, 12:07 4
Скопировал свой код из поста № 2, запустил и получил
Миниатюры
Заполнить случайным образом одномерный массив из  n  элементов  
0
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
07.01.2018, 12:08 5
Цитата Сообщение от Petro29 Посмотреть сообщение
for i:= 0 to N div 2 do
Откуда Вы взяли 0?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.01.2018, 12:08

Заполните случайным образом одномерный массив из n элементов и определите номер элемента
Вариант 5: /из книги Паскаль для школьников, стр. 241/ 2. Заполните случайным образом одномерный...

Сформировать одномерный массив из 25 элементов случайным образом, найти произведение положительных чисел
Нужна помощь в решений задачи и подскажите как её объяснить. Завтра уже отнести надо( Заранее...

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

Одномерный массив. Заполнить массив из двенадцати элементов следующим образом: 1,2...12
Заполнить массив из двенадцати элементов следующим образом: 1,2...12


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru