56*60=3360 сек время скачивания
14*1024*336048168960кб
<em>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ArrGen(17,i->real(i+1)); s.Println;
(s[10:]+s[9::-1]).Println
end.
<u>Пример</u>
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
11 12 13 14 15 16 17 10 9 8 7 6 5 4 3 2 1
Ответ:
Создается константа nmax, равная 15
Создается переменная a, типа двумерного массива типа integer
Создаются переменные n, i, j, jmax типа byte
Создается переменная buf типа integer
Задается размерность, не больше nmax (то есть 15), и помещается в переменную n
Выводится исходная матрица, через 2 цикла, тк двумерный массив.
Дальше преобразуется матрица
Опять таки в двух циклах.
Выводится на экран и всё.
Var B: array [1..12] of integer; i, s, s_min: integer;
begin
writeln;
randomize;
s := 0;
s_min := 0;
for i := 1 to 12 do
B[i] := random(65) - 5;
for i := 1 to 12 do
begin
write(B[i], ' ');
s := s + B[i];
if B[i] < 7
then
s_min := s_min + 1;
end;
writeln();
writeln('Sum: ', s, ', amount of elemnts which lower than 7: ', s_min);
<span>end.</span>
1.
var a,b:string;c:integer;
begin
readln (a);
b:='a';
c:=pos(b,a);
if c<>0 then writeln ('Есть буква а') else writeln ('Нет буквы а');
end.