Регистрация
kaskader2475
10.10.2022 22:30
Информатика
Есть ответ 👍

составить кроссворд по информатике
Ключевое слово "текстовый документ"

135
380
Посмотреть ответы 2

Ответы на вопрос:

olyaevdokimova
olyaevdokimova
4,6(16 оценок)
Не могу соряннн
LilPeepRip11
LilPeepRip11
4,8(75 оценок)
Const n = 10; var a: array[1..n]of integer;   min,imin,i,oldmin: integer; begin   //заполнение массива значениями в диапазоне   //от -100 до 100   //и одновременно находим минимальный элемент элемент   min: =100;   for i: =1 to n do begin       a[i]: =random(201)-100;       if a[i]< = min then       begin           min: =a[i];           imin: =i; //запомним index минимального       end;       write(a[i]: 5);   end;   writeln;     //в цикле сдвигаем элементы массива   //до индекса минимального включительно на   //одну позицию вправо   for i: =imin downto 2 do       a[i]: =a[i-1];       a[1]: =min;   //вывод элементов массива   for i: =1 to n do write(a[i]: 5);   end.

Популярно: Информатика