Написать программу ** языке программирования Pascal для решения следующей задачи: дан...

Question

Написать программу на языке программирования Pascal для решения следующей задачи: дан массив из 16 целых чисел. Вывести массив на экран в виде таблицы из четырёх строк и четырёх столбцов. Ввод массива, вывод массива оформить в виде подпрограммы.

Заранее огромное спасибо.

Comments

Да, это современный Паскаль, отражающий нынешние тенденции в программировании. Мощный и емкий, взявший все лучшее, что можно было взять от языков C#, Python и Haskell и позволяющий использовать любый средства платформы .NET Windows. Паскаль, на котором любая школьная программа пишется в несколько строчек.

---

Это Паскаль, который позволяет не огорчаться даже "продвинутых" из-за того, что в школе отведено недостаточно времени на изучение C++ или C#: время перехода на C# с него при необходимости не превышает пару месяцев.

---

Вам нужен "древний паскаль"? Тогда пишите в вопросе, что нужна программа на языке Pascal ABC (именно так, через пробел) или Free Pascal. Можете повторить вопрос за минимум баллов, я Вам дам решение. Уже хотя бы для того, чтобы Вам было с чем сравнить)))

---

Товарищи информатики и гуру Паскаля, прошу вас сделать блок-схему к данной задаче.))))

---

Как дать баллы за это?

---

https://znanija.com/task/29297884

---

Что значит "дать баллы"? Там стоит 8 баллов

---

Я создал новый вопрос, ссылка выше. 15 баллов

---

По блок-схемам. Различают блок-схему, поясняющую алгоритм решения, которая не привязана к языку программирования и блок-схему, которая поясняет конкретную программу. Они совершенно по-разному выполняются, потому что стандарт (ГОСТ/ISO) предъявляет разные правила к их построению.

---

15 баллов - это Вы потратили. Внизу страницы есть ссылка "Общие вопросы" - выберите там среднюю кнопочку и почитайте раздел "Баллы". Поймете, во что и почему превратились Ваши 15 баллов.

Answer 1

PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

function ВводМассива:=ReadArrInteger('Введите 16 чисел через пробел:',16);

procedure ВыводМассива(a:array of integer);
begin
  foreach var p in a.Batch(4) do begin
    foreach var q in p do Write(q:4);
    Writeln
    end
end;

begin
  ВыводМассива(ВводМассива)
end.

---