Вайнер
?>

Информатика. 1. содержание информационных процессов в живой природе? 2. в чём состоит аналогия между поведением машин и живых организмов? 3. какая разница между мозгом и вычислительной машиной? 4. возможно ли воспроизведение компьютерами себе подобных? если нет, то почему? 5. характеристика информационных процессов в медицине. 6. расскажите о информационных процессах в военном деле.

Информатика

Ответы

shuttse

//Я так понял, что под порядком "неубывания" вы имеете ввиду порядок возрастания...

//Поскольку вы не указали исходный массив, я его сгенерировал, а также вывел на экран, чтобы можно было проверить результаты


const

  size = 10;

  x = -100;

  y = 100;

   

var

  arr: array[1..size] of integer;

  counter, sum, positiveNumbers, negativeNumbers: integer;

  increase: boolean;

   

begin

  randomize;

   

  counter := 0;

  sum := 0;

  positiveNumbers := 0;

  negativeNumbers := 0;

  increase := true;

   

  writeln('Массив:');

   

  for var i := 1 to size do

  begin

     arr[i] := random(x, y);

     writeln(i, ') ', arr[i]);

     

     if (arr[i] > 0) then

     begin

        counter := counter + 1;

        positiveNumbers := positiveNumbers + 1;

        sum := sum + arr[i];      

     end

     

     else

        negativeNumbers := negativeNumbers + 1;

  end;

   

  writeln();

   

  if (counter > 0) then

     writeln('1) Среднее арифметическое всех положительных элементов массива = ', sum / counter)

   

  else

     writeln('1) Положительных элементов массива не было (0)');

     

  if (positiveNumbers > negativeNumbers) then

     writeln('2) В массиве больше положительных элементов')

     

  else if (positiveNumbers = negativeNumbers) then

     writeln('2) В массиве одинаковое количество положительных и отрицательных элементов')

     

  else

     writeln('2) В массиве больше отрицательных элементов');

     

  for var j := 1 to size - 1 do

  begin

     if (arr[j] > arr[j + 1]) then

     begin

        increase := false;

        break;

     end;

  end;

   

  if (increase) then

     writeln('3) Элементы расположены в порядке возрастания')

     

  else

     writeln('3) Элементы не расположены в порядке возрастания');

end.


по информатике! паскаль! 1) найти среднее арифметическое всех положительных элементов массива или вы
по информатике! паскаль! 1) найти среднее арифметическое всех положительных элементов массива или вы
по информатике! паскаль! 1) найти среднее арифметическое всех положительных элементов массива или вы
rusdtver
# Python 3.X

'''
Длина Московской кольцевой автомобильной
дороги - 109 километров. Байкер Вася
стартует с нулевого километра МКАД
и едет со скоростью v километров в час.
На какой отметке он остановится
через t часов?

Программа получает на вход
значение v и t. Если v>0, то Вася
движется в положительном направлении
по МКАД, если же значение v<0, то
в отрицательном.

Программа должна вывести целое число
от 0 до 108 — номер отметки, на которой
остановится Вася.
'''

l = 109

v, t = [int(input(x)) for x in ('Скорость (км/с): ', 'Время (час): ')]
pos = v * t % l

print(pos)

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Информатика. 1. содержание информационных процессов в живой природе? 2. в чём состоит аналогия между поведением машин и живых организмов? 3. какая разница между мозгом и вычислительной машиной? 4. возможно ли воспроизведение компьютерами себе подобных? если нет, то почему? 5. характеристика информационных процессов в медицине. 6. расскажите о информационных процессах в военном деле.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

evavard
vsnimschikov391
Николаевич-Анатольевич599
magazin3000
ainud
pokupatel688
a580028r
TatarkovTitova
sakalrip
nadnuriewa8110
Suralevartem
Chuhnin195107364
karpov68
Рожнов
aniramix