Вывод одномерного массива в виде таблицы

@SadBoi · Регистрация: 24.05.2018

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

Дан одномерный массив А из 15 целых чисел. А=12 43 45 87 98 52 72 4 90 15 17 31 7 54 77.
Нужно вывести его на экран в 3 строки по 5 элементов.

@Cyborg Drone · 29.11.2018, 01:43

Pascal

const
  a: array[1..15] of integer =
    (12, 43, 45, 87, 98, 52, 72, 4, 90, 15, 17, 31, 7, 54, 77);
 
var
  i: integer;
 
begin
  for i := 1 to 15 do
    begin
      write(a[i]:3);
      if i mod 5 = 0 then writeln
    end;
  readln
end.

или

Pascal

const
  a: array[1..15] of integer =
    (12, 43, 45, 87, 98, 52, 72, 4, 90, 15, 17, 31, 7, 54, 77);
 
var
  i, j: integer;
 
begin
  for i := 0 to 2 do
    begin
      for j := 1 to 5 do write(a[5 * i + j]:3);
      writeln
    end;
  readln
end.

@SadBoi 0 / 0 / 0 Регистрация: 24.05.2018 Сообщений: 11
		1
	Вывод одномерного массива в виде таблицы 29.11.2018, 00:15. Показов 3298. Ответов 1 Метки нет (Все метки) Дан одномерный массив А из 15 целых чисел. А=12 43 45 87 98 52 72 4 90 15 17 31 7 54 77. Нужно вывести его на экран в 3 строки по 5 элементов. 0

	29.11.2018, 01:43

Опции темы