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

Pascal ! 3.5. дан одномерный массив с(n). удалить элементы одномерного массива меньшие заданного числа а; выведите на печать преобразованный массив и число его элементов. выведите на печать преобразованный массив и число его элементов.

👇
Ответ:
LizaIlina1
LizaIlina1
05.11.2021
program task31133707; var  arr: array of integer;  a, valueOfNumbers, choise, k: integer; begin  Writeln('ВВЕДИТЕ РАЗМЕРНОСТЬ МАССИВА: ');  Readln(valueOfNumbers);  SetLength(arr, valueOfNumbers);  Writeln('ВВЕДИТЕ ЧИСЛО a: ');  Readln(a);  Writeln('КАК ЗАПОЛНИТЬ МАССИВ? СЛУЧАЙНЫМИ ЧИСЛАМИ (0) ИЛИ С КЛАВИАТУРЫ?(1)');  Readln(choise);  if choise = 0 then    for var i := 0 to valueOfNumbers - 1 do      begin        var tmpNumber := Random(valueOfNumbers + 1) + 1;        if tmpNumber < a then continue        else          begin            arr[i] := tmpNumber;            Inc(k);          end;      end  else    for var i := 1 to valueOfNumbers do      begin        var tmpNumber := 1;        Readln(tmpNumber);        if tmpNumber < a then continue        else        begin          arr[i] := tmpNumber;          Inc(k);        end;      end;  Writeln('ИСХОДНЫЙ МАССИВ: ');  for var i := 1 to k do    if arr[i] = 0 then continue    else Write(arr[i], ' ');  Writeln('КОЛИЧЕСТВО ЭЛЕМЕНТОВ МАССИВА: ', k); end.
4,6(45 оценок)
Открыть все ответы
Ответ:
radion2005
radion2005
05.11.2021

using System;

namespace ConsoleApp18

{

   class Program

   {

       static void Main(string[] args)

       {

           string s = Console.ReadLine();

           int n = int.Parse(s.Split(' ')[0]), m = int.Parse(s.Split(' ')[1]), sum = 0;

           int[,] a = new int[n,m];

           for (int i = 0; i < n; i++)

           {

               s = Console.ReadLine();

               for (int j = 0; j < m; j++)

               {

                   a[i, j] = int.Parse(s.Split(' ')[j]);

                   sum += a[i, j];

               }

           }

           Console.WriteLine(sum);

           Console.ReadKey();

       }

   }

}

Объяснение:

4,8(80 оценок)
Ответ:
Aslanov1999
Aslanov1999
05.11.2021

1  Лабиринт - это запутанная сеть дорог, из которой трудно найти выход.

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

2 Древнегреческий миф о Минотавре

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

1 Поиск выхода из лабиринта - это главная задача робота. Всё путешествие в лабиринте состоит из трёх основных действий. Это движение вперëд, поворот налево и поворот направо. Этого будет достаточно, чтобы выйти из любого лабиринта.

2 потому что, кто его построил тот и выбирал, лабиринт при строении делает накидку, в ней и есть, карта лабиринта

4,8(5 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ