Чтобы изменить параметры страницы в текстовом редакторе World следует выполнить цепочку команд которая состоит из разметка страницы ставка ориентация книжная главная​

Дан массив, содержащий 70 целых чисел. Опишите на одном из языков программирования алгоритм,

позволяющий найти и вывести наименьшее содержащееся в массиве положительное число, десятичная

запись которого оканчивается цифрой 7. Гарантируется, что в массиве есть хотя бы один

положительный элемент, десятичная запись которого оканчивается цифрой 7. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но

разрешается не использовать часть из них.

1

2

3

4

5

6

7

8

9

const N=70;

var

a: array [1..N] of integer;

i, j, m: integer;

begin

for i:=1 to N do

что-то подобное?

// PascalABC.NET 3.2, сборка 1427 от 24.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ArrRandom(ReadInteger('n='),-20,20); m.Println;
  (var k,var s):=(0,0);
  for var i:=1 to m.Length-2 do
    if (m[i]<m[i-1]) and (m[i]<m[i+1]) then (k,s):=(k+1,s+m[i]);
  Writeln('Свойство А: кол-во=',k,', сумма=',s);
  var mb:=m.Where(x->x<0).ToArray;
  Write('Свойство Б: '); mb.Println;
  var z:=ReadInteger('Z1=');
  var mmin:=m.Min;
  m.Transform(x->x=mmin?z:x); Writeln('Свойство B:'); m.Println;
  m.Sort; Writeln('Упорядоченность по неубыванию:'); m.Println;
  var p,q:integer; Write('Введите P Q: '); Read(p,q);
  m:=m.Where(x->(x mod p<>0) and (x mod q<>0)).ToArray;
  Writeln('Свойство Г:'); m.Println;
  z:=ReadInteger('Z2=');
  p:=m.FindIndex(x->x>=z);
  if m[p]<>z then m:=(m[:p]+Arr(z)+m[p:]).ToArray;
  Writeln('После попытки вставки:'); m.Println
end.

Пример
n= 17
3 5 -5 12 -15 6 11 -7 -13 -3 -17 8 -7 8 -5 -15 -7
Свойство А: кол-во=6, сумма=-72
Свойство Б: -5 -15 -7 -13 -3 -17 -7 -5 -15 -7
Z1= -33
Свойство B:
3 5 -5 12 -15 6 11 -7 -13 -3 -33 8 -7 8 -5 -15 -7
Упорядоченность по неубыванию:
-33 -15 -15 -13 -7 -7 -7 -5 -5 -3 3 5 6 8 8 11 12
Введите P Q: 3 7
Свойство Г:
-13 -5 -5 5 8 8 11
Z2= 0
После попытки вставки:
-13 -5 -5 0 5 8 8 11