Создаём список с названиями книг (переменная<em> books</em>), в переменную <em>books_names </em>добавляем каждое название, но обёрнутое в кавычки. Далее просто объединяем все элементы списка методом .join и выводом функцией print
<span>нужно найти в массиве минимальный элемент из тех, которые не меньше 180. Это стандартная задача, она решается примерно так:[pre2] const N = 10; var A: array[1..N] of integer; k: integer; ... min := MaxInt; { записываем в min большое число, здесь - больше 200 } for k:=1 to N do if (A[k] >= 180) and (A[k] < min) then min := A[k]; writeln(min); [/pre2]</span>
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>1)</u>
begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var b:=a.Rows.Select(r->r.Where(t->t.IsOdd).LastOrDefault); b.Println;
end.
<u>Пример</u>
Количество строк и столбцов в массиве: 8 5
*** Исходный массив [8,5] ***
-41 36 -99 14 17
-22 12 71 -94 -42
-35 -40 26 2 24
39 17 20 11 84
-53 -18 97 -6 5
2 67 -54 -6 -3
95 -87 90 -13 -37
-81 -21 61 -90 -60
--------------------
17 71 -35 11 5 -3 -37 61
<u>2)</u>
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(20,10,2,5);
a.Println(2); Writeln(2*a.ColCount*'-');
Writeln('Ср.балл 5-го ученика: ',a.Row(4).Average)
end.
<u>Пример</u>
*** Исходный массив ***
2 2 3 3 4 3 4 2 3 2
4 3 2 3 2 4 3 2 5 3
4 2 3 3 4 5 5 2 2 4
5 2 4 2 4 5 4 2 3 3
5 3 3 2 3 4 5 4 4 4
3 2 3 2 3 2 5 2 4 4
4 4 5 5 2 4 5 5 4 2
2 2 5 4 4 2 4 3 2 2
2 2 4 4 2 4 4 4 5 4
2 3 4 4 5 3 3 4 5 4
5 2 5 3 3 2 3 5 3 2
3 4 2 3 4 3 2 3 4 3
2 2 2 2 2 4 4 2 4 2
5 2 3 3 3 5 3 2 2 5
2 4 2 4 3 3 3 2 5 4
3 2 5 4 4 4 5 5 3 5
4 3 2 3 3 2 2 4 2 4
2 5 2 5 2 3 2 4 5 4
3 3 2 2 5 4 3 5 4 4
2 3 5 3 3 5 4 5 2 2
--------------------
Ср.балл 5-го ученика: 3.7
USES CRT;
VAR A:array[1..15] of integer;
i:integer;
BEGIN
CLRSCR;
{Заполняем массив}
For i:=1 to 15 do
begin
Write('Введите ',i,' элемент массива ');
Read(A[i]);
CLRSCR;
end;
{Выводим массив на экран}
For i:=1 to 15 do
Write(A[i],' ');
{К нечетным номерам массива +10 к четным -10}
For i:=1 to 15 do
if i mod 2 <>0 then A[i]:=A[i]+10
else A[i]:=A[i]-10;
Writeln;
{Выводим на экран измененный массив}
For i:=1 to 15 do
Write(A[i],' ');
Readln;
READLN;
<span>END.</span>
Program pr;
uses crt;
Var mas:array[1..1000, 1..1000] of integer;
N,i,j,sum:integer;
Begin
Writeln('Введите размер матрицы N*N');
Write('N = ');readln(N);
if (N>1000) or (N<1) then
Writeln('Ошибка, указанные значения выходят за пределы матрицы') else
Begin
Writeln('Введите элементы матрицы');
sum:=0;
for i:=1 to N do
for j:=1 to N do
Begin
readln(mas[i,j]);
if (mas[i,j] mod 2 <> 0)
then sum:=sum+mas[i,j];
end;
Writeln();
Writeln('Исходная матрица');
for i:=1 to N do
Begin
for j:=1 to N do
Begin
Write(mas[i,j], ' ');
end;
Writeln();
end;
Writeln();
Writeln('Сумма нечетных элементов = ',sum);
end;
readln;
<span>end.</span>