Массив r[1]=12, r[2]=-3, r[3]=-5, r[4]= 6, r[5]=14, r[6]=9, r[7]=0, r[8]=8. определите значение суммы после выполнения следующего фрагмента программы: sum: =0; for i: =3 to 7 do if r[i]< 5 sum: =sum+r[i]; writeln (sum); *

Рассматриваются значения массива с индексами от 3 до 7. если его значение меньше пяти, то прибавляем к общей сумме, изначально равной 0. просмотрим все значения (от 3 до 7): r[3] = -5 < 5. сумма = 0 + r[3] = 0 + (-5) = -5 r[4] = 6 > 5. условие не выполняется. r[5] = 14 > 5. условие не выполняется. r[6] = 9 > 5. условие не выполняется. r[7] = 0 < 5. сумма = -5 + r[7] = -5 + 0 = -5 r[8] не входит в рассматриваемую часть (цикл от 3 до 7). ответ: -5.

var

  x: array[1..15]of integer;

  i,min,z: integer;

begin

  min: =32000;

  z: =0;

  for i: =1 to 15 do

  begin

  readln(x[i]);

  if x[i]> 0 then if x[i]< min then min: =x[i];

  if x[i]=0 then inc(z);

  end;

  writeln(min);

  writeln(z);

end.

 

где-то в начале ii тысячелетия до нашей эры предки финикийцев изобрели алфавит.

само слово "алфавит" восходит к названиям первых финикийских букв: альфа "алеф" (бык) и  бета "бет" (дом). финикийцы дали название каждой букве своего алфавита.