<span>Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN (COPY (А, 2, 3) + COPY (A, 12, 3) ); ?
ЛЕКЦИЯ
Определите результат выполнения:
С: = ' ЛЕФОРТОВО' ;
F: = LENGTH (С) + LENGTH (С); ?
Переменной F присвоит значение 20
Из слова ИНФОРМАТИКА получено слово ФОРМАТ. Вставьте пропущенные значения
COPY('ИНФОРМАТИКА', ,).
</span>COPY('ИНФОРМАТИКА',3 ,6)<span>
Что будет выведено в результате выполнения:
WRITELN ('24 + 24 =', 24 + 24)?
24 + 24 =48
Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN(COPY(A,1,7));
ЭЛЕКТРО
</span>
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure SortInsert(a:array of integer);
// сортировка простыми вставками по убыванию
begin
for var i:=1 to a.Length-1 do
if a[i-1]<a[i] then begin
var (t,j):=(a[i],i-1);
while (j>=0) and (a[j]<t) do begin
a[j+1]:=a[j]; j-=1
end;
a[j+1]:=t
end
end;
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
// приступаем к сортировке четных строк (строк с нечетными индексами)
var row:=1;
while row<=m-1 do begin
var v:=a.Row(row);
SortInsert(v);
a.SetRow(row,v);
row+=2
end;
Writeln('*** Сортированный массив ***'); a.Println(4) // вывод
end.
<u>Пример</u>
Количество строк и столбцов в массиве: 5 9
*** Исходный массив ***
-13 -53 35 84 72 44 76 -78 -93
-86 -82 90 -35 -16 55 -99 -24 -63
64 -29 -34 51 89 4 51 37 80
7 19 81 41 34 -49 64 1 -59
51 -80 71 -13 19 9 -90 7 6
------------------------------------
*** Сортированный массив ***
-13 -53 35 84 72 44 76 -78 -93
90 55 -16 -24 -35 -63 -82 -86 -99
64 -29 -34 51 89 4 51 37 80
81 64 41 34 19 7 1 -49 -59
51 -80 71 -13 19 9 -90 7 6
Примеры:
1.Информация в учебниках
2.Произведения Художественной литературы
3.Тексты,описывающие алгоритмы
4.мысленный образ объекта
Var n:array [1..999] of integer;
a,i,c:integer;
begin
write ('Введите кол-во элементов: ');
readln (a);
c:=0;
for i:=1 to a do
begin
write ('Введите ',i,' элемент: ');
readln (n[i]);
if n[i]<0 then c:=i;
end;
WRITELN;
write ('Введённый массив: ');
for i:=1 to a do
begin
write (n[i],' ');
end;
WRITELN;
if c>0 then writeln ('Индекс последнего введённого отрицательного элемента ',c) else writeln ('Отрицательных элементов не было введено!');
end.