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

Одномерные массивы. Объединить строки по правилу

12.06.2012, 14:11. Просмотров 859. Ответов 1
Метки нет (Все метки)

Программа вводит массив из 10 строк и выводит объединение двух строк с номерами 1+10,2+9,…5+6.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.06.2012, 14:11
Ответы с готовыми решениями:

Одномерные массивы. Сформировать по правилу.
даны 2 массива А и В по 10 элементов в каждом. сформулировать массив С по правилу С1=А1-В1....

Даны массивы а и b. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi= -ai
Даны массивы а и b, состоящие из n-элементов каждый. Получить новые массивы a и b, элементы...

Даны 2 файла. Объединить их в третьем файле по правилу
Даны 2 файла. Объединить их в третьем файле по следующему правилу: первая строка первого файла...

Одномерные массивы
Срочна нужна помощь в решении задачек, ибо завтро сдавать :) и Заранее спасибо :)

Одномерные массивы
пусть даны вещественные числа a1,a2,...a20. Преобразуйте последовательность по правилу: большее из...

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

Решение

Вот как:
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
31
32
33
34
35
36
37
38
program z;
var i,j,j1,l,r,n:integer;
a:array [1..10,1..100] of integer;
begin
     writeln('Введите кол-во строк (1-50)');
     readln(n);
     randomize;
     writeln('Случайная матрица');
          for i:=1 to 10 do
              begin
                   for j:=1 to n do
                       begin
                            a[i,j]:=trunc((10-(-10))*random+(-10));
                            write(a[i,j],' ');
                       end;
                   writeln;
              end;
     l:=10;
     for i:=1 to 5 do
         begin
              j1:=0;
              for j:=n+1 to n*2 do
                  begin
                       j1:=j1+1;
                       r:=a[i,j];
                       a[i,j]:=a[l,j1];
                       a[l,j]:=r;
                  end;
              l:=l-1;
         end;
     writeln('Обработанная матрица');
     for i:=1 to 5 do
         begin
              for j:=1 to n*2 do
                  write(a[i,j],' ');
              writeln;
         end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.06.2012, 15:04

Одномерные массивы
заполнить случайными трехзначными числами массив из целых чисел Х и в массив Y занести суммы цифр...

Одномерные массивы
Помогите решить. Дан одномерный массив А(N), N<=80 1.Найти сумму модулей элементов с нечётными...

одномерные массивы
Вставить минимальный элемент после последнего, равного заданному числу?. Вроде легко, но не могу...


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

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

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