Есть ответ 👍

Дан массив: a[1]=7, a[2]=3, a[3]=5, a[4]=0, a[5]=4, a[6]=1, a[7]=8, a[8]=8, a[9]=1, a[10]=2. Определите значение переменной k после выполнения следующего фрагмента программы записанного на языке программирования Паскаль:

k:=0;

for i:=1 to 10 do

if a[i]>=5 then k:=k+1;

writeln ('k=',k);

116
154
Посмотреть ответы 2

Ответы на вопрос:

HappyMen11
4,6(40 оценок)

Программа считает количество элементов в массиве, которые больше или равны 5

K=1+1+1+1=4

ответ: 4

Если мой ответ оказался Вам полезен, то отметить его, как "лучший"


uses

  graphabc;

const

  s = 14; // кол-во щупалец

  n = 18;   // кол-во звеньев в каждом из них

  w = 2; //ширина щупалец

var

  i, j: integer;

  x, y: real;

  tx, ty: real;

  k, d: real;

 

  // углы поворота звеньев относительно друг-друга

  a: array [1..n] of real;

 

  // длина одного звена

  len: real;

begin

  pen.width : = w;

  setwindowsize(320, 320);

  setwindowtitle('щупальца');

 

  if window.width > window.height then

    len : = window.height / 1.8 / n

  else

    len : = window.width / 1.8 / n;

  k : = random(360) * pi / 180;

  d : = pi * 2 / s;

 

  var k1 : = 1;

 

  // главный цикл

  repeat

   

    if window.width > window.height then

      len : = window.height / 1.8 / n

    else

      len : = window.width / 1.8 / n;

   

    lockdrawing(); //блокируем рисование(для оптимизации)

    clearwindow(clblack); // стираем всё

   

    // расчёт коэфицента поворота

    if random(50) = 0 then

      k : = random(360) * pi / 180;

   

    // поворот всех щупалец

    a[1] : = a[1] + sin(k) / 15;

    // интерполяция углов между щупальцами

    for i : = 2 to n do  

      a[i] : = a[i] + (a[i - 1] - a[i]) * 0.1;

    for j : = 0 to s - 1 do

    begin

      x : = 0.5 * window.width;

      y : = 0.5 * window.height;

      for i : = 2 to n do  

      begin

        setpencolor(color.fromargb(255, trunc(255 - 255 * i / n), 255));

       

        // немного школьной тригонометрии : )            

        tx : = x + cos(j * d + a[i]) * len;

        ty : = y + sin(j * d + a[i]) * len;

        line(trunc(x), trunc(y), trunc(tx), trunc(ty));

        x   : = tx;

        y   : = ty;

      end;

    end;

    redraw(); //перерисуем изображение

    k1 += 1;

    setwindowtitle('щупальца( средн. fps ' + format('{0,5: f2}',k1/milliseconds*1000)+')');

   

    sleep(5);

  until false;

 

end.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS