Из одномерного массива сформировать матрицу

@Sawin · Регистрация: 18.03.2018

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

Здравствуйте, форумчане, выручите пожалуйста. Вот такое задание по информатике:

Задан массив из целых чисел размером n и число L. Написать программу, формирующую из него матрицу, содержащую по L элементов в строке. Недостающие элементы заполнить нулями.

Спасибо огромное !

@Puporev · 15.05.2018, 19:00

Pascal

var a:array[1..100] of integer;
    b:array[1..50,1..50] of integer;
    n,L,m,i,j,k:integer;
begin
randomize;
repeat
write('Введите размер массива от 10 до 100 n=');
readln(n);
until n in [10..100];
for i:=1 to n do
 begin
  a[i]:=10+random(90);
  write(a[i]:4);
 end;
writeln;
repeat
write('Введите количество столбцов матрицы от 2 до ',n div 2,' L=');
readln(L);
until L in [2..n div 2];
if n mod L=0 then m:=n div L
else m:=n div L+1;
k:=0;
for i:=1 to m do
 begin
  for j:=1 to L do
   begin
    inc(k);
    if k<=n then b[i,j]:=a[k]
    else b[i,j]:=0;
    write(b[i,j]:4);
   end;
  writeln;
 end;
end.

@Sawin 0 / 0 / 0 Регистрация: 18.03.2018 Сообщений: 4
		1
	Из одномерного массива сформировать матрицу 15.05.2018, 17:23. Показов 1322. Ответов 1 Метки нет (Все метки) Здравствуйте, форумчане, выручите пожалуйста. Вот такое задание по информатике: Задан массив из целых чисел размером n и число L. Написать программу, формирующую из него матрицу, содержащую по L элементов в строке. Недостающие элементы заполнить нулями. Спасибо огромное ! 0

	15.05.2018, 19:00

Из одномерного массива сформировать матрицу

Решение