//Код с комментариями во вложении //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.
#Код программы на 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
Запись (record) — это пользовательский тип данных, котоорый может содержать поля с различными типами данных, например:
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.
// Внимание! Если программа не работает, обновите версию!
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