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

задать массив из 20 элементов случайным образом от -100 до 100 вывести его на экран и найти те элементы котрые положительные

👇
Ответ:
tsovinarjangiryan
tsovinarjangiryan
24.01.2020

Программа:

Pascal:

var

arr: array[1..20] of integer;

i: integer;

begin

randomize;

for i := 1 to 20 do arr[i] := random((-100), 100);

writeln(arr);

for i := 1 to 20 do if arr[i] > 0 then write(arr[i], ' ') ;

end.

4,8(57 оценок)
Открыть все ответы
Ответ:
MatveiKnyaz2005
MatveiKnyaz2005
24.01.2020
Написано и протестировано в PascalABC.NET (версия 2.2, сборка 842)
const
 s='велосипедист';
var
 t:='кытунак';
 p:string;
begin
  // 1
  Writeln(LeftStr(s,9),', ',
    s[12]+s[2]+s[5]+s[12]+s[4],', ',
    s[4]+Copy(s,3,2)+s[1]+s[4]);
  // 2
  Writeln('Позиция буквы "д" в слове "'+s+'" равна ',s.IndexOf('д')+1);
  // 3
  Write('Было: ',t,', стало: ');
  t[2]:='о'; t[4]:='е'; t:=t.Replace('а','о');
  Writeln(t);
  // 4
  Write('Коды символов слова ',t,': ');
  foreach c:char in t do Write(Ord(c),' ');
  Writeln;
  // 5
  Write('В слове ',t,' количество букв ');
  if Odd(t.Length) then Writeln('нечетное') else Writeln('четное')
end.

Результат выполнения программы:
велосипед, тесто, олово
Позиция буквы "д" в слове "велосипедист" равна 9
Было: кытунак, стало: котенок
Коды символов слова котенок: 234 238 242 229 237 238 234
В слове котенок количество букв нечетное
4,4(14 оценок)
Ответ:
Dementor112
Dementor112
24.01.2020

ответ:Платформа (фр. plate – жайпақ, forme — форма) — геологияда қозғалмалығы біршама аз, жазық немесе үстірт тәрізді бедерлі, екі жікқабатты құрылымдық қабаттан – іргетастан және шөгінді тыстан тұратын жер қыртысының кең ауқымды атырабы. Жер бетінде іргетастық көрініс беретін бөліктерді қалқандар дейді. Шөгінді тыспен көмкерілген тұстарын тақта деп атайды. Архей мен протерозойда қалыптасқан ежелгі платформа (Шығыс Еуропа, Сібір) және ігретасы палеозой мен мезозой тау жыныстарьшан құралған жас платформа (Батыс Сібір, Скиф, Тұран) деп ажыратылады; кристалды тақтатастардан, гнейстерден, эффузивті жыныстардан және тағы басқалар. күшті метаморфозданған архейлік жыныстардан құралған жер қабығының көлемді берік алабы.[1]

Ол тек эпейрогендік қозғалысқа ғана ұшырап, не жоғары көтеріліп, не төмен түсуі мүмкін. Төмен түскен жағдайда платформаның үстін горизонтальды теңіз шөгінділері жабады. Сонымен, метаморфозды жыныстар не жер бетінде, не ертеде шөгінді жыныстармен жабылған тереңдіктерде кездеседі. Сондықтан платформаға өзінің фундаменті мен оны жауып жатқан шөгінді жыныстар құрамдарының бір-біріне түгелдей ұқсамауы және шөгінді жыныстардың бұзылмай қабатталып жатуы тән. Мысалға Орыс платформасы мен Батыс Сібір ойпатын алуға болады. Қазақстанда оған Торғай даласы мен Ертіс бойы жатуы мүмкін.[2]

Объяснение:мине жауабы

4,5(83 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ