Составить программу которая создаёт массив случайных чисел в диапазоне (-10, 10) . найти сумму положительных и сумму отрицательных элементов массива

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

begin
var a:=ArrRandom(10,-10,10);a.Println;
var (sum1,sum2):= (a.Where(t -> t > 0).Sum,a.Where(t -> t < 0).Sum);
Writeln(sum1, ' ', sum2);
end.

Пример:
5 -2 -3 6 -7 -8 -7 7 -1 4
22 -28

Const
  nn=100;

var
  i,n,sn,sp:integer;
  a:array[1..nn] of integer;

begin
  Write('n = '); Read(n);
  Randomize;
  sn:=0; sp:=0;
  for i:=1 to n do begin
    a[i]:=Random(21)-10;
    Write(a[i],' ');
    if a[i]>0 then sp:=sp+a[i]
    else
      if a[i]<0 then sn:=sn+a[i]
    end;
  Writeln;
  Writeln('Сумма отрицательных ',sn,', сумма положительных ',sp)
end.

Пример
n = 13
8 4 10 6 -2 2 -9 -9 6 3 2 4 -7
Сумма отрицательных -27, сумма положительных 45

CLS
DIM n AS INTEGER
INPUT "Введите кол-во студентов:", n

DIM studentYearsOld(1 TO n) AS INTEGER
DIM studentName(1 TO n) AS STRING

FOR i = 1 TO n
INPUT "Введите имя студента:", studentName(i)
INPUT "Введите год рождения студента:", studentYearsOld(i)
NEXT i
PRINT
FOR i = 1 TO n
PRINT "Студент "; studentName(i)
studentYrs = 2016 - studentYearsOld(i)
IF studentYrs < 18 THEN
PRINT "Лет до права голоса:"; 18 - studentYrs
ELSEIF studentYrs >= 18 THEN
PRINT "Студент уже имеет право голоса!"
PRINT
END IF
studentYrs = 0
NEXT i

Код валидный, если допустил ошибку во время переписывания - сообщите.

Оба устройства, как планшет, так и смартфон очень похожи друг на друга, но по изначальной задумке производителей, они предназначены для несколько разных задач.Самое первое отличие это размер,планшет практически в раза 2 больше смартфона, соответственно экран будет тоже больше что есть один из плюсов.Так как есть меньше шанс посадить зренее так как экран телефона меньше чем планшета.

Отличия так же и в параметрах, в смартфоне они чаще всего выше и производительнее, тогда как планшеты обладают более простыми характеристиками. Смартфон по своей сути – телефон для звонков и связи, а планшет – устройство для интернета, просмотра видео и так далее.

Самым главным программным инструментом для смартфонов и планшетов является операционная система. Для большинства обоих видов гаджетов используется система Android. Вообде она ничем не отличается ни на смартфоне, ни на планшете. Но вот оптимизация, всё-таки, на обоих устройствах несколько разная. Отличаться будут так же и фирменные оболочки от разных производителей, но не значительно.