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

Задачка.Одномерный массив.

13.02.2012, 20:22. Просмотров 958. Ответов 1
Метки нет (Все метки)

Сформулируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлены по следующему правилу:
1-й равен числу, введенному с клавиатуры;
2-й равен удвоенному текущему индексу;
3-й равен однозначному числу, полученному с помощью датчика случайных чисел.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.02.2012, 20:22
Ответы с готовыми решениями:

Задачка.Одномерный массив.
Даны два массива: A(10) и B(10). Сформулируйте массив C(10),предварительно...

Cформулировать одномерный массив, задачка
Сформулируйте массив из 15 символов с помощью датчика случайных чисел....

Двумерный массив. Сформировать одномерный массив из отрицательных элементов и вычислить их сумму
Задан двухмерный массив целых чисел А размером N на М. Сформировать одномерный...

Двумерный массив. Заполнить одномерный массив суммой значений элементов строк
Помогите, пожалуйста!=( Дан двумерный массив. Заполнить одномерный массив...

Одномерный массив. Выбрать элементы, принадлежащие отрезку, и занести в новый массив.
Дано:одномерный массив а(n),n=10.выбрать из него элементы принадлежащие отрезку...

1
Фаер
641 / 370 / 259
Регистрация: 09.12.2011
Сообщений: 733
Записей в блоге: 35
13.02.2012, 20:56 2
Лучший ответ Сообщение было отмечено Киррра как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program Mas;
Uses crt;
Var A:array[1..9] of integer; x:array[1..3] of integer;
i,k:integer;
Begin
ClrScr; Randomize;
Writeln('Input 3 figures:');
For i:=1 to 3 do Readln(x[i]);{ввод трёх чисел}
k:=1;
For i:=1 to 9 do
 Begin
  If i mod 3=1 then
   Begin
    A[i]:=x[k]; k:=k+1;
   End;
  If i mod 3=2 then A[i]:=i*2;
  If i mod 3=0 then A[i]:=random(21)-10;{генерация произвольного числа}
 Write(A[i]:4);
End;
Readln;
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.02.2012, 20:56

Двумерный массив. Заполнить одномерный массив суммой значений элементов строк
Помогите, пожалуйста!=( Дан двумерный массив. Заполнить одномерный массив...

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

Одномерный массив. Сформировать массив из элементов исходного, больших его среднего зачения
вот задание:Дан массив X(N). Сформировать массив Y из элементов массив...


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

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

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