Пользователь вводит числа - получается последовательность. если пользователь ввел 0, то программа прекращает свое действие, сразу выдает результат. т. е. 0 - конец последовательности. определить верно ли утверждение: "в этой последовательности четное количество элементов. значение четного элемента последовательности является квадратом стоящего перед ним нечетного числа"

Var     n,p,c: integer;     f: boolean; begin c: =1;   //признак четности числа членов последовательности writeln('вводите члены последовательности'); repeat   readln(n);   if n< > 0 then     begin     c: =-c;     if (p*p=n)  and (c=1) then f: =true else f: =false;     p: =n;     end;   until n=0; if f=true then write('да, верно') else write('нет, неверно'); end.

массив — а) область машинной памяти, в которой могут размещаться совокупности значений одного и того же типа

б) набор переменных, объединенных общим назначением и имеющих одно имя.

элемент массива— отдельная переменная, входящая в массив.

размерность массива— количество элементов, которое содержит массив.

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

индекс элемента массива — номер элемента в массиве.

особенность массивов заключается в том, что все элементы массива являются данными одного типа (возможно и структурированного).

при назначении массиву имени те же требования, какие предъявляются к именам переменных простых типов.

Во-первых - я перепишу программу: const     n = 10; var     a: array[1..n, 1..n] of integer;     b: array[1..n] of integer;     s, i, j: integer; begin     for i : = 1 to n do         for j : = 1 to n do             a[i, j] : = random(100);         for i : = 1 to n do         begin             for j : = 1 to n do                 write(a[i, j], ' ');             writeln();         end;         for i : = 1 to n do         begin             s : = 0;             for j : = 1 to n do                 s : = s + a[i, j];                 b[i] : = s;         end;         for i : = 1 to n do         write(b[i], ' '); end.

я ничего в ней не изменял кроме того, что оформил, как подобает. начнём разбор:

на строках 1-2 мы объявляем неизменную переменную, которая хранит в себе число. за что отвечает число - разберём ниже.

на строках 3-6 мы объявляем массив a с размерностью [1..n, 1..n] (вот, что значит та неизменная переменная. неизменная, потому что массивы в обычном pascal имеют неизменное количество элементов) и массив b с размерностью [1..n]. также объявляем переменную s, i и j. могу сказать сразу, переменные с именами i и j и типом integer исключительно для работы с итерациями и циклами.

на строках 8-10 мы используем двойной цикл, чтобы заполнить наш двумерный массив псевдослучайными числами от 0 до 100 не включая, то есть от 0 до 99 (так работает функция random).

на строках 12-17 мы выводим данный массив.

на строках 19-25 заключён смысл всей программы. для начала стоит вспомнить, что такое двумерный массив (матрица). переменная i в нашем случае обозначает строку, а j, соответственно, столбец. первый цикл с переменной i останавливается на определённой строке, а второй цикл с переменной j проходит все элементы данной строки. можем заметить, что во втором цикле фигурирует запись сложения переменной s со значением массива. эта запись говорит о том, что с цикла в переменную s заносится сумма всех элементов i-той строки. поясню:

пусть n (размерность массива) = 3, i - номер итерации, s - сумма элементов i-й строки, а b - массив, хранящий сумму i-й строки.

первый столбец - номер строки, второй - элементы массива, третий - сумма.

i = 1   | 1 2 3   | s = 1 + 2 + 3 = 6     | b[1] = 6i = 2 | 4 5 6 | s = 4 + 5 + 6 = 15   | b[2] = 15i = 3 | 7 8 9   | s = 7 + 8 + 9 = 24 | b[3] = 24

значение переменной s помещается в массив b, который как раз-таки хранит сумму элементов каждой из строк.

на строках 27-28 мы выводим массив b.

если что-то непонятно, то спрашивайте в комментариях.