Дан целочисленный массив заданный датчиком случайных чисел в интервале (100 требуется умножить отрицательные значения элементов этого массива на 20.

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

begin
  var a:=ArrRandom(ReadInteger('n='),-100,100); a.Println;
  a.Transform(t->t<0?t*20:t); a.Println
end.

Пример
n= 13
-82 6 99 -23 71 -92 50 -70 -82 37 -10 -97 92
-1640 6 99 -460 71 -1840 50 -1400 -1640 37 -200 -1940 92

//Код с комментариями во вложении
//Pascal
var
  A: array [1..20] of integer;
  i: byte;
begin
randomize;
for i := 1 to 20 do
begin
  A[i] := random(201)-100;
  if A[i] < 0 then A[i] := A[i] * 20;
  write(A[i], ' ');
end;
writeln;
readln;
end. 

[5261, 5281, 5333, 5351, 5393, 5399, 5407, 5441, 5443, 5449, 5483, 5519, 5531, 5557, 5573, 5591, 5623, 5641, 5647, 5669, 5683, 5689, 5711, 5717, 5737, 5779, 5791, 5801, 5807, 5821, 5827, 5843, 5849, 5861, 5867, 5869, 5881, 5939, 5953, 6011, 6037, 6053, 6073, 6079, 6091, 6101, 6121, 6143, 6163, 6211, 6217, 6257, 6271, 6277]
54

#Код программы на Ruby22
t=[]
primes = NumberHelpers::getPrimeNumbers(6288, nil)
primes.each do |pr|
    t << pr if pr >= 5232 and NumberHelpers::GetNumbersSum(pr) % 2 == 0
end
p t
p t.size

def getPrimeNumbers(max, primes)
        primes = [2] if primes == nil

        for i in (primes.last+1)..max
            f = false
            primes.each do |pn|
                f = (f or (i % pn==0))
            end
            primes<<i if not f
        end
        p primes.last
        return primes
    end

def GetNumbersSum(n)
        n = n.to_s.chars
        sum = 0
        n.each do |c|
            sum += c.to_i()
        end

        return sum
    end

Запись (record) &mdash; это пользовательский тип данных, котоорый может содержать поля с различными типами данных, например:

type
  schools = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
  students = record
     name, surname : string;
     age : byte;
     school : schools;
  end;

Для обращения к полям записи из главной программы необходимо разделять имя переменной типа Запись и поля, которое оно содержит, символом "." (точка). Например:

var
  student : students;

begin
  student.name := 'Иван';
  student.surname := 'Пупкин';
end.

Если необходимо получить или изменить значения нескольких полей записи, то удобнее использовать конструкцию with:

begin
  with student do begin
     name := 'Вася';
     surname := 'Пупкин';
     age := 12;
     school := 5;
  end;
end.