Регистрация Спросить otvet5GPT
КристинаВощевоз555
27.06.2020 17:06
Информатика
Есть ответ 👍

Решение нужно на бейсике дан массив, содержащий 2014 положительных целых чисел. напишите на одном из языков программирования программу, которая находит сумму локальных максимумов этого массива, значение которых не кратно 5. локальным максимумом называется элемент массива, который больше всех своих соседей. например, в массиве из 6 элементов, содержащем числа 4, 6, 12, 7, 3, 8, есть два локальных максимума: это элементы, равные 12 и 8. программа должна вывести сумму подходящих элементов, значения элементов выводить не нужно. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных. бейсик n=2014 dim a(n) as integer dim i, j, k as integer for i = 1 to n input a(i) next i … end паскаль const n=2014; var a: array [1..n] of integer; i, j, k: integer; begin for i: =1 to n do readln(a[i]); … end. в качестве ответа вам необходимо фрагмент программы, который должен находиться на месте многоточия. вы можете записать решение также на другом языке программирования (укажите название и используемую версию языка программирования, например, free pascal 2.4). в этом случае вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии.

279
497
Посмотреть ответы 2

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

2112x2n3t
2112x2n3t
4,5(33 оценок)
N=2014dim a(n) as integerdim i, j, k as integerfor i = 1 to n  input a(i)next ik = 0if a(1) > a(2) and (a(1) mod 5 < > 0)  then k = k + a(1)if a(n) > a(n-1) and (a(n) mod 5 < > 0)  then k = k + a(n)for i = 2 to n-1   if (a(i) > a(i+1)) and (a(i) > a(i-1)) and (a(i) mod 5 < > 0) then k = k + a(1)next iprint kименно бейсика у меня нет, так что писалось на vbs а потом добавлялись символы как думаю было бы правильно
terminator012
terminator012
4,5(30 оценок)
Program z1;   var a: array [1..100,1..100] of integer; i,j,n,m,min,t: integer; begin  write('введите кол-во столбцов - ');   readln(n);   write('введите кол-во строк - ');   readln(m);   randomize;   for j: =1 to m do  begin    for i: =1 to n do    begin      a[i][j]: =random(9)-0;       write (a[i][j],' ');     end;     writeln;   end;       min: =a[1][4];   t: =1;   for i: =2 to n do  begin    if (a[i][4]< min)        then begin              min: =a[i][4];               t: =i;             end;   end;   writeln('минимальный элемент - ',min);   writeln('столбец - ',t); end.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

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

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS