В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
KarinATseGeLnyK
KarinATseGeLnyK
26.03.2023 11:17 •  Информатика

Составте алгоритм для исполнителя чертежник, фото есть, бабочка (Информатика) ​

Показать ответ
Ответ:
prostosadkotik
prostosadkotik
29.09.2020 01:48
//PascalABC.Net
const
  N = 20;

var
  a: array [1..N] of integer;
  k, min: integer;

begin
  k := 1;
  //Получим 1-ый элемент массива
  a[1] := Random(41) - 20;
  min := a[1];
  write(a[1]:4);
  //Получим оставшиеся элементы массива
  //найдем минимальный, запомним его номер
  //и выведем массив на экран
  for var i := 2 to N do
  begin
    a[i] := Random(41) - 20;
    if a[i] < min then begin
      min := a[i];
      k := i;
    end;
    write(a[i]:4);
  end;
  if k <> 1 then swap(a[1], a[k]);
  writeln;
  //Вывод массива после замены
  for var i := 1 to n do write(a[i]:4);
end.
0,0(0 оценок)
Ответ:
ОСЕНЬ2019
ОСЕНЬ2019
25.10.2021 15:02
Кое что убрал - работает, только свои данные введи (фамилия и т.д.)

uses graphabc;var s,f,i,o: string;    j: byte;    pic: integer;begin
s:='AVALON';f:='FAMILY';i:='name';o:='second name';
setfontcolor(clred);setwindowsize(550,250);setfontsize(20);setfontstyle(fsbold);for j:=1 to length(s) do    textout(10,(j*40)-40,s[j]);setpencolor(clred);setbrushcolor(clred);rectangle(30,120,550,125);setfontcolor(clblue);setbrushcolor(clwhite);setfontname('Tahoma');setfontsize(16);SetFontStyle(fsnormal);textout(300,10,f);SetFontStyle(fsItalic);textout(300,50,i);textout(300,90,o);setpenwidth(6);for j:=1 to 10 do    arc(500+(j*30),420,300,0,180);setfontname('Times');setfontsize(26);textout(40,150,'Something for good');end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота