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

Написать код на паскале! даны номерные знаки автомашин двух таксопарков n1..n10 nn1..nn15 и расходы топлива каждой из автомашин за месяц r1..r10 rr1..rr15 напечатать номерные знаки автомашин первого и второго таксопарков с максимальными и минимальными топлива.

👇
Ответ:
verarusu02
verarusu02
21.04.2022
Var N1:array[1..10] of integer;
    N2:array[1..15] of integer;
    R1:array[1..10] of integer;
    R2:array[1..15] of integer;
    min1, min2, max1, max2, i:integer;
    R1min, R2min, R1max, R2max:integer;
begin
min1:=500;
min2:=500;
max1:=0;
max2:=0;
randomize;
for i:=1 to 10 do
N1[i]:=random(900)+100;
for i:=1 to 15 do
N2[i]:=random(900)+100;
for i:=1 to 10 do
R1[i]:=random(500);
for i:=1 to 15 do
R2[i]:=random(500);
for i:=1 to 10 do
 if R1[i]<min1 then
  begin
  min1:=R1[i];
  R1min:=i;
  end else
   begin
   if R1[i]>max1 then
    begin
    max1:=R1[i];
    R1max:=i;
    end;
   end;
for i:=1 to 15 do
 if R2[i]<min2 then
  begin
  min2:=R2[i];
  R2min:=i;
  end else
   begin
   if R2[i]>max2 then
    begin
    max2:=R2[i];
    R2max:=i;
    end;
   end;
writeln('v 1 taxoparke min ', N1[R1min]);
writeln('vo 2 taxoparke min ', N2[R2min]);
writeln('v 1 taxoparke max ', N1[R1max]);
writeln('vo 2 taxoparke max ', N2[R2max]);
write('N1 ');
for i:=1 to 10 do
write(N1[i], ' ');
writeln;
write('R1 ');
for i:=1 to 10 do
write(R1[i]:3, ' ');
writeln;
write('N2 ');
for i:=1 to 15 do
write(N2[i], ' ');
writeln;
write('R1 ');
for i:=1 to 15 do
write(N1[i]:3, ' ');
writeln;
end.
4,8(22 оценок)
Открыть все ответы
Ответ:
О2Л3Я4
О2Л3Я4
21.04.2022
Microsoft Exel - это программа для работ с электронными таблицами, созданная корпорацией Microsoft для Windows, Windows NT и Mac OS, а также Android, iOS и Windows Phone. Она предоставляет возможности экономико-статистических расчетов, графические инструменты и, за исключением Excel2008 под Mac OS X, язык макропрограммирования VBA (Visual Basic for Application).
Стандартные функции Microsoft Exel:
1.Финансовые
2.Даты и время
3.Математические
4.Статистические
5.Функции для работы со ссылками и массивами
6.Функции для работы с базами данных
7.Текстовые
Функции microsoft exel, структура microsoft exel и что такое microsoft exel
4,7(42 оценок)
Ответ:
Аня276541
Аня276541
21.04.2022
Чертежник имеет перо, которое можно поднимать, опускать и перемещать. При перемещении опущенного пера за ним остается след — отрезок от предыдущего положения пера до нового. При перемещении поднятого пера никакого следа на плоскости не остается. В начальном положении перо Чертежника всегда поднято и находится в точке (0, 0).
По команде подними перо Чертежник поднимает перо. Если перо уже было поднято, Чертежник игнорирует эту команду: он не меняет положение пера и не сообщает об отказе. Иначе говоря, каким бы ни было положение пера до команды подними перо, после этой команды оно будет поднятым.
Точно так же, независимо от первоначального положения, после выполнения команды опусти перо оно оказывается опущенным, то есть готовым к рисованию.
Рисунки Чертежник выполняет с команд переведи в точку и сдвинь на вектор.
По команде переведи в точку (а, b) Чертежник сдвигается в точку с координатами (а, &). На рис. 3.2 показаны результаты выполнения команды переведи в точку (2, 3) при различных положениях пера до этой команды. Видно, что независимо от предыдущего положения перо оказывается в точке (2, 3), но длина и направление отрезка, который при этом чертится, могут быть различны. Команду переведи в точку называют командой абсолютного смещения
4,5(24 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ