Из двух последовательностей сформировать матрицу по заданному правилу

@neformat_67rus · Регистрация: 25.10.2020

Студворк — интернет-сервис помощи студентам

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

Даны две последовательности чисел: А1.А2, A3, …A14 и Х1,X2,X3,…,X14.

Ввести их и сформировать таблицу С(I;J) при условии:

C(I,J)= A(I), если I - нечетные;

C(I,J)= X(I), если I - четные.

Вывести размером 8*14 таблицу C.

ПЫТАЛСЯ ДЕЛАТЬ ВОТ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program vsmas;
var
   a: array [1..14] of integer;
   x: array [1..14] of integer;
   c: array [1..8,1..14] of integer;
   i,j:integer;
Begin
  
 for i:= 1 to 8 do
 begin
   for j:= 1 to 14 do
   begin
     if i mod 2 = 0 then c[i,j]:=x[j]
     else c[i,j]:=a[j];
     writeln(c[i,j]);
   end;
 end;
End.

@Puporev · 25.10.2020, 15:03

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
const m=8;
      n=14;
var
   a,x: array [1..n] of integer;
   c: array [1..m,1..n] of integer;
   i,j:integer;
Begin
randomize;
writeln('Массив А');
for i:=1 to n do
 begin
  a[i]:=10+random(90);
  write(a[i]:3);
 end;
writeln;
writeln('Массив X');
for i:=1 to n do
 begin
  x[i]:=10+random(90);
  write(x[i]:3);
 end;
writeln;
writeln('Массив С');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
     if odd(i)then c[i,j]:=a[j]
     else c[i,j]:=x[j];
     write(c[i,j]:3);
   end;
  writeln;
 end;
end.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/