Вывести массив в колонки

@Slotiz · Регистрация: 12.03.2023

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

надо вручную ввести значения массива, а потом они должны выводиться в:
1) в n колонок
2) в 3 колонки: первый элемент - второй элемент - третий элемент.
Заранее спасибо

@Cyborg Drone · 12.03.2023, 12:44

Pascal

var
  a: array[1..m] of integer;
  i, n: integer;
begin
  writeln('Введите элементы массива (', m, ' чисел):');
  for i := 1 to m do read(a[i]);
  readln;
  write('n = ');
  readln(n);
  writeln('1) массив в n колонок:');
  for i := 1 to m do
    begin
      write(a[i]:10);
      if i mod n = 0 then writeln
    end;
  writeln;
  writeln('2) массив в 3 колонки:');
  for i := 1 to m do
    begin
      write(a[i]:10);
      if i mod 3 = 0 then writeln
    end;
  readln
end.

@Slotiz 0 / 0 / 0 Регистрация: 12.03.2023 Сообщений: 1
		1
	Вывести массив в колонки 12.03.2023, 10:00. Показов 358. Ответов 1 Метки нет (Все метки) надо вручную ввести значения массива, а потом они должны выводиться в: 1) в n колонок 2) в 3 колонки: первый элемент - второй элемент - третий элемент. Заранее спасибо 0

Опции темы

Вывести массив в колонки

Решение