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

Информатика 4 тоқсан 1 бжб 8-сынып ​

👇
Открыть все ответы
Ответ:
MarySilverstone
MarySilverstone
21.02.2022

хранение информации в письменной форме уходит в глубь веков. до наших дней в некоторых местах сохранились наскальные письмена древнего человека, выполненные 25-20 тысяч лет назад; лунный календарь, выгравированный на кости 20 тысяч лет назад. для письма также использовались дерево, глина. многие века письменные документы составлялись на пергаментных свитках. это было « дорогим удовольствием». пергамент делался из кожи животных. ее растягивали, чтобы получить тонкие листы. когда на востоке научились ткать шелк, его стали использовать не только для одежды, но и для письма.в письменной форме уходит в глубь веков. до наших дней в некоторых местах сохранились наскальные письмена древнего человека, выполненные 25-20 тысяч лет назад; лунный календарь, выгравированный на кости 20 тысяч лет назад. для письма также использовались дерево, глина. многие века письменные документы составлялись на пергаментных свитках. это было « дорогим удовольствием». пергамент делался из кожи животных. ее растягивали, чтобы получить тонкие листы. когда на востоке научились ткать шелк, его стали использовать не только для одежды, но и для письма.

4,8(91 оценок)
Ответ:
dashamaer1
dashamaer1
21.02.2022
Сорян, когда из паскаля скопировал, абзацы некоторые удалились,а так всё работает. Делать нечего прост сегодня :)
 
var s,i,min,max,m,n: integer;
var a: array[1..15] of integer;
begin
for i:=1 to 15 do begin 
 a[i]:=random(100);
   write(a[i],' ')   end; 

writeln;  m:=a[1];n:=a[1];

for i:=1 to 15 do begin 
  if m<a[i] then begin
     m:=a[i]; min:=i; end; 
  if n>a[i] then begin
      n:=a[i]; max:=i; end; end; if max<min then begin s:=max;max:=min;min:=s; end;

for i:=1 to ((abs(max-min)) div 2 +1) do begin   
s:=a[min];   a[min]:=a[max];   a[max]:=s;   min:=min+1;   max:=max-1;                                    end; for i:=1 to 15 do    write(a[i],' ');     end.
4,6(73 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ