Предмет: Информатика, автор: MrKelmax

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

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

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

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

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

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

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

MrKelmax: https://znanija.com/task/29297884

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

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

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

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

Ответы

Автор ответа: Аноним

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.

Приложения: