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

1.
Вы работаете в агрофирме по выращиванию растений. Ваша задача - полить равномерно все растения. Известно, что на нечётных грядках растёт в два раза больше овощей, чем на чётных. Рассчитайте сколько нужно воды на каждую грядку, если норма полива одной чётной грядки составляет n литров. Программа должна вывести таблицу, в которой указан номер грядки и норма полива.
2.
Используя решение из первой задачи поменять код программы, при условии, что после двадцатой грядки, норма полива нечётных грядок увеличилась на 5 литров. Всего нужно полить 50 грядок.

👇
Открыть все ответы
Ответ:
joker231341
joker231341
09.01.2023
Const
  n = 10;
var
  a: array[1..n] of integer;
  i, j, t: integer;
  flag:boolean;
 
begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := random(101)-50;
    Write(a[i]:4)
  end;
  Writeln;
  i:=1;
  repeat
    flag:=true;
    for j := 1 to n-i do
      if a[j] > a[j+1] then
      begin t := a[j]; a[j] := a[j+1]; a[j+1] := t; flag:=false end;
    Inc(i);
  until (i>n-1) or flag;
  Writeln('Отсортированный по возрастанию массив');
  for i := 1 to n do Write(a[i]:4);
  Writeln
end.

Тестовое решение:
Исходный массив
 -32  -7   2   2  50 -33   1  31   4 -16
Отсортированный по возрастанию массив
 -33 -32 -16  -7   1   2   2   4  31  50
4,6(33 оценок)
Ответ:
Nekotin0
Nekotin0
09.01.2023

Холст – это чистое пространство, которое дается нам для совершения каких-либо действий в разнообразных программах. Например, в графических редакторах холст - это пространство, которое дается нам для рисования рисунка.

Сохранить проект по указанному адресу можно только через пункт меню "Save as copy. Choose a file format". Но тоггда отсутствует возможность редактирования проекта. Если сохранять файл используя пункт меню "Save as Paint 3D project" проект сохраняется по неизвестному адресу. Указать путь нет никакой возможности. Куда сохраняется проект?

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