Дополнительное задание 2 Расшифруй скороговорку с алфавита пронумерованного в обратном порядке 10, 23, 35, 1, 17, 35, 10, 35, 31. 19. 20. 1. 10. 20. 17. 17.30, 1, 25, 1, 17, 20. 17, 35, 23, 35, 1, 17, 15, 10, 24 15. 21, 2,

//Pascal
//Заполнение массива случайными числами
var
  A: array[1..255] of integer;
  i, sum, N: integer;
begin
write('Введите N: '); readln(N);
randomize; //В PascalABC.NET можно убрать
for i := 1 to N do
begin
  A[i] := random(21)-10; //Случайные числа от -10 до 10
  if ((A[i] mod 2 <> 0) and (A[i] < 0)) then sum := sum + A[i];
  write(A[i], ' ');
end;
writeln;
writeln('Сумма отрицательных и нечетных = ', sum);
readln;
end. 

//Pascal
//Заполнение массива с клавиатуры
var
  A: array[1..255] of integer;
  i, sum, N: integer;
begin
write('Введите N: '); readln(N);
for i := 1 to N do
begin
  write('A[', i, '] = '); readln(A[i]);
  if ((A[i] mod 2 <> 0) and (A[i] < 0)) then sum := sum + A[i];
end;
writeln;
writeln('Сумма отрицательных и нечетных = ', sum);
readln;
end.