Решить на кумире: дан массив. напечатать все элементы, не превышающие числа 100. заранее

Var n, i: integer; a: array of integer; begin readln(n); setlength(a, n+1); for i: =1 to n do read(a[i]); for i: =1 to n do if a[i]< =100 then write(a[i], '  '); end. n - размер массива. n вводится в начале, а затем уже вводится n чисел в массиве. если возникнут вопросы или будут ошибки в ходе работы программы, пиши в комментарии.

I. 1. информационными моделями являются - .. в)модель корабля г) формула 2. материальной моделью является - .. а)анатомический муляж 3. какие пары объектов находятся в отношении "объект-модель" б)компьютер-его функциональные схемы 4. какая модель является статической? в)формула соединения ii. 1. имя переменной определяет - .. б)выделенную область оперативной памяти 2. значение переменной определяет - .. а)данные хранящиеся в выделенной области оперативной памяти б)данные хранящиеся в выделенной области оперативной памяти 3. тип переменной определяет - .. в)количество выделяемых ячеек оперативной памяти г)присваивание значения переменной iii. 1. операционная система - это .. в)программа работой компьютера 2. системные диск необходим для .. а)загрузки операционной системы 3. отличительной особенностью компьютерных вирусов от других вредоносных программ является- .. б)способность к размножению 4. информационный объем файла не может быть больше, чем .. а)размер сектора диска

//первый вариант

var

  i, summ: integer;

begin

  summ : = 0;

  for i : = 1 to 99 do

    if i mod 2 = 1 then

      summ : = summ + i;

  writeln('сумма нечетных чисел от 1 до 99 равна: ', summ);

end.

 

//второй вариант

var

  i, summ: integer;

begin

  summ : = 0;

  i : = 1;

  while i < 100 do

  begin

      summ : = summ + i;

      i : = i + 2;

  end;

  writeln('сумма нечетных чисел от 1 до 99 равна: ', summ);

end.