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

1)что могли обозначать знаки,соответствующие коротким односложным словам? 2)сколько всего букв в финикийском алфавите? 3)какой главный недостаток финикийского письма?

👇
Ответ:
Даша182005
Даша182005
22.06.2022
1) Буквы , ударные или безударные слоги. 
Сами знаки могут выглядеть как угодно, например, точка-тире. 
Они могли обозначать союзы, знаки препинания, слова в один слог. 
Также они использовались для сочетаний звуков, слогов. 

А если вопрос связан с историей то, письменные знаки, засвидетельствованные древнейшими памятниками, могут быть без труда возведены к первоначальному рисуночному образу. Эти знаки изображали человека и части его тела, орудия труда, оружие, лодки, животных, птиц, рыб, растения, поля, воды, горы, звёзды и т. д.
2) всего 22 согласные буквы.
3) Главный недостаток финикийского письма — это отсутствие символов для обозначения гласных звуков
4,6(77 оценок)
Открыть все ответы
Ответ:
Anal0l
Anal0l
22.06.2022
//Pascal ABC.NET 3.1 сборка 1219

Const
 n=5;

Var
 max1,max2,min1,min2,i:integer;
 ar:array[1..n] of integer;
begin
 max1:=integer.MinValue;
 max2:=integer.MinValue;
 min1:=integer.MaxValue;
 min2:=integer.MaxValue;
 for i:=1 to n do
  begin
   readln(ar[i]);
   if (ar[i]<max1) and (ar[i]>max2) then max2:=ar[i] else
   if ar[i]>max1 then
   begin
   max2:=max1;
   max1:=ar[i];
   end;
   if (ar[i]>min1) and (ar[i]<min2) then min2:=ar[i] else
   if ar[i]<min1 then
   begin
   max2:=max1;
   min1:=ar[i];
   end;
  end;
 writeln('Сумма максимумов:',max1+max2);
 writeln('Cумма минимумов:',min1+min2);
end.

Пример ввода:
1
2
3
4
5
Пример вывода:
Сумма максимумов:9
Cумма минимумов:3
4,6(68 оценок)
Ответ:
joker231341
joker231341
22.06.2022
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 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ