Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
DGO
0 / 0 / 0
Регистрация: 19.01.2012
Сообщений: 6
1

Дан массив целых чисел (n=10), заполненный случайным образом числами из промежутка [-40,30]

21.01.2012, 12:40. Просмотров 2524. Ответов 1
Метки нет (Все метки)

Переставить первые три и последние три элемента местами, сохраняя следование чисел и, не используя дополнительного массива. Переведите пожалуйста в VBA

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
27
uses crt;
var a:array[1..10] of integer;
    n,i:byte;
    x:integer;
begin
clrscr;
randomize;
n:=10;
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(71)-40;
  write(a[i]:4);
 end;
writeln;
writeln;
for i:=1 to 3 do
 begin
  x:=a[i];
  a[i]:=a[n-3+i];
  a[n-3+i]:=x;
 end;
writeln('Массив после перестановок:');
for i:=1 to n do
write(a[i]:4);
readln
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2012, 12:40
Ответы с готовыми решениями:

Дан массив целых чисел (n=25), заполненный случайным образом числами из промежутка [-20,85]
Дан массив целых чисел (n=25), заполненный случайным образом числами из промежутка 1)Удалить из...

Дан массив целых чисел (n=25), заполненный случайным образом числами из промежутка [-50,50]
Помогите пожалуйста написать программу на C#. Спасибо заранее) Дан массив целых чисел (n=25),...

Дан массив целых чисел (N=15), заполненный случайным образом числами из промежутка [-25, 31].
помогите пожалуйста написать программу: Дан массив целых чисел (N=15), заполненный случайным...

Дан массив целых чисел из 25 элементов, заполненный случайным образом числами из промежутка [-35,75]:
(пожалуйста с процедурами и функциями) Дан массив целых чисел из 25 элементов, заполненный...

Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-80,150]
Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка . ...

1
all_angarsk
753 / 260 / 57
Регистрация: 13.12.2009
Сообщений: 1,018
21.01.2012, 13:25 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
Dim a() As Integer, n As Integer, i As Integer, k As Integer, k1 As Integer, k2 As Integer, s As Integer, p As Integer
Cells.Clear
Randomize
n = InputBox("ââåäèòå ÷èñëî ýëåìåГ*òîâ", , "10")
ReDim a(n) As Integer
For i = 1 To n
  a(i) = Int(Rnd * 70) - 40
  Cells(i, 1) = a(i)
Next i
For k = 1 To 3
d = a(n - 3 + k)
a(n - 3 + k) = a(k)
a(k) = d
Next
For i = 1 To n
  Cells(i, 2) = a(i)
Next i
End Sub
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.01.2012, 13:25

Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-35,75]. Удалить и
Что не так? Подскажите пожалуйста var Form2: TForm2; N: integer; M : array of integer; ...

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

Дан одномерный массив целых чисел, заполненный случайным образом числами из промежутка [-a;b]. Вставить элемен
Помогите пожалуйста :) Я только учусь С++. Так что не ругайтесь, вот что смог сделать я!...


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

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

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