Заполнение массива и его вывод на экран

Задача: 

В задачах по программированию очень часто встречается необходимость заполнить массив данными и вывести их потом на экран. Методов этого не так уж много и особым разнообразием они не отличаются. Поэтому хорошо бы их оформить в виде процедур и использовать по мере необходимости.

Алгоритм решения задачи: 

Создадим две процедуры заполнения одномерного массива целыми числами: одну с использованием функции random и одну, где пользователь самостоятельно задает значения. Также создадим процедуру вывода массива на экран. Затем вызовем в основной ветке программы эти процедуры, передав им в качестве аргументов переменные, связанные с массивами.

Программа на языке Паскаль: 

const
    n = 10;
 
type
    miniarr = array[1..n] of integer;
 
var
    a, b: miniarr;
 
procedure arr_rand (k:integer; var arr: miniarr);
    var i: byte;
    begin
        writeln ('Заполнение массива случайными числами.');
        randomize;
        for i := 1 to k do
            arr[i] := random (100);
    end;
 
procedure arr_user (k:integer; var arr: miniarr);
    var i: byte;
    begin
        write ('Введите  ', k, ' чисел через пробел: ');
        for i := 1 to k do
            read (arr[i]);
    end;
 
procedure arr_out (k:integer; var arr: miniarr);
    var i: byte;
    begin
        write ('Вывод массива: ');
        for i := 1 to k do
            write (arr[i]:4);
        writeln;
    end;
 
begin
 
    arr_rand (n, a);
    arr_out (n, a);
    writeln;
    arr_user (n, b);
    arr_out (n, b);
 
readln
end.

Комментарии

Помогите пожалуйста с

Помогите пожалуйста с заданием.
В одномерном целочисленном массиве А[1..20] подсчитать отрицательные числа и вывести их количество на экран.

Массивы

ПОМОГИТЕ ПОЖАЛУЙСТААА(((( Я никак не могу сделать...,а препод жудко достал,грызет мозги мне. Задание:Создать двумерный массив, заполнить вещественными числами, через rondom вывести на экран, вывести max и min и наоборот.

Помогите, пожалуйста

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

Как такое решить?

помогите

в задачи надо вычислить максимальный интервал когда значение является наивышем в одномерном массиве и вывести его на экран

помогите

как написать код чтобы паскаль вывел на экран значения массива по спирали

решение

ошибся

то есть 9

помоги плиз

а в массиве не на 100 элементов а на 10

помогите составить прогу на задачу

в задачи надо вычислить максимальный интервал когда значение является наивнейшем в одномерном массиве и вывести его на экран

опечатка в слове

опечатка в слове "наивнейшем". Имелось в виду "наименьшем"?

Если в массиве только одно минимальное значение, то интервал - это весь массив. Задача некорректно сформулирована. Должны оговариваться еще какие-то условия.

жду ответа

не на наименьший а наивысший интервал и вот например значения массива
16,51 16,67 16,57 16,67 16,67 16,67 16,67 16,61 16,65 16,67 и как сделать так чтобы он на экран вывел [4;7]

примерное решение Если массив

примерное решение

Если массив должен быть из вещественных чисел, то заполняйте его вручную.

Если по условию задачи максимум заранее не известен, то следует включить в код поиск максимума (алгоритм прост, где-то есть на сайте). В таком случае вместо 1 в ветке if пишете переменную, хранящую значение максимума.

Дан одномерный массив из

Дан одномерный массив из вещественных чисел А(n), где n<=50. Разработайте программу, формирующую новый массив В из элементов массива А, которые превышают среднее арифметическое элементов массива А, стоящих на местах с четными индексами. Выведите среднее арифметическое значение элементов массива А, исходный и сформированный массивы.

Составить задачу с помощью процедур или функций.

Помогите пожалуйста.

Составить процедуру или функцию вычисляющую:

0, при x1 не равным 0,
N={ n, при x1=x2=...=Xn=0,
m, при x1=x2=...Xm=0 и Xm+1 не равным 0
Для некоторого одномерного массива X(X1,X2...Xn)
Дана квадратная матрица A(R,R). Определить значение N для четных строк и нечетных столбцов.

ОЧЕНЬ НУЖНА ПОМОЩЬ, НЕ ПОНИМАЮ КАК РЕШИТЬ, А БЕЗ ЭТОЙ ЗАДАЧИ НЕ СТАВЯТ ЗАЧЕТ... СПАСИБО ЗА ПОМОЩЬ!

Пожалyйста помогите решить задачy!=)

Заполнить элементы массива последовательностью чисел: 2, 5, 10, 17, 26...

Const N=20;Var a:array

Const
  N=20;
Var
  a:array [1..N] of integer;
  b,i:integer;
begin
  b:=3;
  a[1]:=2;
  For i:=2 to N do begin
    a[i]:=a[i-1]+b;
    b:=b+2;
    end;
  For i:=1 to N do
    Write(a[i],' ')
end.

C#

В C# есть?

Напишите пожалуйста программу

Сформировать массив,составленный из элементов исходного массива:
-начиная первым элементом,имеющим отрицательное значение, и кончая последним элементом,если отрицательные элементы имеются;
-начиная первым и кончая последним элементом ,если отрицательные элементы отсутствуют