Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
VITEK48RUS
0 / 0 / 0
Регистрация: 17.06.2012
Сообщений: 6
1

Сформировать массив по правилу

17.06.2012, 19:29. Просмотров 1199. Ответов 2
Метки нет (Все метки)

Дан массив X(N).сформировать массив Y(N) элементы которого получаются по следующему правилу
Y(1)=-X(1)+1
Y(2)=X(2)+2
Y(3)=-X(3)+3
Y(4)=X(4)+4
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.06.2012, 19:29
Ответы с готовыми решениями:

Сформировать массив по правилу
Сформулируйте и выведите на экран МАССИВ ИЗ ДЕВЯТИ ЭЛЕМЕНТОВ ТРИ ПОСЛЕДОВАТЕЛЬНЫХ ЭЛЕМЕНТА КОТОРОГО...

Сформировать массив по правилу
Сформируйте и выведите на экран массив из девяти элементов , каждые три последовательных элемента...

Сформировать массив по правилу
Даны массивы а и b, состоящие из n-элементов каждый. Получить массив с, где ck=ak*bk.

Сформировать массив по правилу
Задано количество членов разложения e = 2 + 1/2! + 1/3! + 1/4! + …, не превышающее 25. Сформировать...

2
Das Gespenst
Лучи добра
172 / 170 / 191
Регистрация: 08.06.2012
Сообщений: 292
18.06.2012, 02:18 2
Лучший ответ Сообщение было отмечено VITEK48RUS как решение

Решение

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
28
29
30
program z;
uses crt;
var i,n:integer;
x,y:array [1..100] of integer;
begin
     repeat
           write('Ââåäèòå êîë-âî ýëåìåíòîâ ìàññèâà: ');
           readln(n);
           if n<=0
              then
                  writeln('Вы задали неверный параметр! Ïîâòîðèòå ïîïûòêó!');
           writeln;
     until n>0;
     clrscr;
     randomize;
     write('Ñëó÷àéíûé ìàññèâ X[N]: ');
     for i:=1 to n do
         begin
              x[i]:=trunc((20-(-20))*random+(-20));
              write(x[i],' ');
         end;
     writeln;
     write('Ñôîðìèðîâàííûé ìàññèâ Y[N]: ');
     for i:=1 to n do
         begin
              y[i]:=x[i]+i;
              write(y[i],' ');
         end;
     readln;
end.
0
Владимир_ВМ
128 / 109 / 103
Регистрация: 16.05.2011
Сообщений: 340
18.06.2012, 02:24 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var x,y:array[1..10]of integer;
i,n:integer;
begin
read(n);
for i:=1 to n do
  begin
    read(x[i]);
    if i mod 2=0 then y[i]:=-x[i]+i
    else y[i]:=x[i]+i;
    write(y[i]:3);
  end;
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.06.2012, 02:24

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

Сформировать массив по правилу
Сформулируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента...

Сформировать массив по правилу

Сформировать массив по правилу
Помогите пожалуйста!!!

Сформировать массив по правилу
Даны действительные числа от а1 до а20.Получить а1,а11,а3,а13,...,а9,а19.


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

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

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