Home - переход в начало строки/документа
End - переход в конец строки/документа
Ctrl + -> - перенос каретки от текущей позиции до следующего слова.
Ctrl + <- - перенос каретки от текущей позиции до начала слова.
Page Up - перемотка страницы к началу страницы.
Page Down - перемотка страницы к концу страницы.
Ctrl + Page Up - переход к месту предыдущего изменения.
Ctrl + Page Down - переход к месту следующего изменения.
Вроде так)
Const
m=5;
n=7;
var
a:array[1..m,1..n] of integer;
i,j,amax:integer;
p:real;
begin
Randomize;
Writeln('Исходный массивэ');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(90)+10;
Write(a[i,j]:3)
end;
Writeln
end;
{Задача 1}
amax:=a[1,1];
for i:=1 to m do
for j:=1 to n do
if a[i,j]>amax then amax:=a[i,j];
Writeln('Максимальный элемент равен ',amax);
{Задача 2}
p:=1;
for i:=1 to m do
for j:=1 to n do
if a[i,j] mod 2=0 then p:=p*a[i,j];
Writeln('Произведение четных элементов равно ',p);
end.
Пример работы
Исходный массивэ
94 20 49 80 70 55 40
62 74 71 51 88 10 76
68 11 11 74 96 50 69
98 34 25 93 52 53 61
68 85 35 15 77 78 97
Максимальный элемент равен 98
Произведение четных элементов равно 2.86826492979212E+33
<em>// PascalABC.NET 3.2, сборка 1427 от 24.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ReadInteger('Количество строк в массиве:');
var n:=ReadInteger('Количество колонок в массиве:');
Writeln('*** Исходный массив [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-9,9);
a.Println(3); Writeln(3*a.ColCount*'-');
Write('Колонок, где все элементы различны, ',
a.Cols.Where(c->c.Distinct.Count=m).Count);
end.
<u>Пример</u>
Количество строк в массиве: 6
Количество колонок в массиве: 7
*** Исходный массив [6,7] ***
-9 6 -1 5 1 -9 -6
-2 9 1 -7 -6 -5 -1
4 -7 2 1 3 1 2
0 3 8 5 -6 8 -9
-2 -2 8 -4 -7 0 8
-2 1 1 -8 -9 1 -4
---------------------
Колонок, где все элементы различны, 2
Var a:array [1..10] of integer;
I,s:integer;
begin
randomize;
s:=1;
for I:=1 to 10 do
begin
a[I]:=random(100);
if (a[I] mod 3 =0)and(a[I] mod 9<>0) then
s:=s*a[I];
write(a[I]:4);
end;
writeln;
writeln(s);
end.
4*4=16
т.к. в черно-белом, а в черно-белом 1пиксель равен 1бит, то
16*1=16