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

Решить дан массив a[5].найти наименьший положительный элемент среди элементов с четными номерами массива.

👇
Ответ:
remizov011
remizov011
26.01.2022
VB.

   Dim A(5) As Integer

   Dim min As Integer = A(0)
   For i As Integer = 1 To A.Length - 1         
           If i Mod 2 = 0 Then         
                  If A(i) > 0 And A(i) < min Then   
                         min = A(i)               
                 End If        '
           End If   
   Next

Pascal.

const n=5;
var  
a: array[1..n] of byte; 
 i,imin: byte;

begin
  writeln('Исходный массив:');  
for i:=1 to n do 
 begin    
a[i]:=random(21); 
   write(a[i],' ');  
end; 
 writeln;

  imin:=1;
  for i:=2 to n do 
 begin  
  if a[i]<a[imin] then imin:=i;    
 end;

  writeln('Минимум = ',a[imin]);
end.
4,7(72 оценок)
Открыть все ответы
Ответ:
MatveiKnyaz2005
MatveiKnyaz2005
26.01.2022
Написано и протестировано в 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
26.01.2022

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

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

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

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