М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Филин4625622
Филин4625622
10.10.2022 04:08 •  Информатика

Написать программу, которая создает массив 10х10 элементов, заполняет его нулями. затем все элементы над главной диагональю меняет на 1.​

👇
Открыть все ответы
Ответ:
Dashazavalish
Dashazavalish
10.10.2022

ответ: Считываем первое число(n), чтобы определить, до какого момента должен продолжаться цикл. Создаем переменную sum, чтобы хранить найденное количество чисел, удовлетворяющих условию. Запускаем цикл, считываем число, если последняя цифра - 4 (проверяем при получения остатка от деления на 10) и число делится на 6 (проверяем при получения остатка от деления на 6), то добавляем к в переменную sum 1.

n = int(input())

sum = 0

for i in range(0, n):

  current = int(input())

  if current % 10 == 4 and current % 6 == 0:

      sum += 1

print(sum)

Объяснение: n = int(input())

sum = 0

for i in range(0, n):

  current = int(input())

  if current % 10 == 4 and current % 6 == 0:

      sum += 1

print(sum)

4,5(38 оценок)
Ответ:

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

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


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) найти среднее арифметическое всех положительных элементов массива или вы
4,8(69 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ