Скласти програму на мові паскаль Дано масив {X} розмірністю n?

Информатика | 10 - 11 классы

Скласти програму на мові паскаль Дано масив {X} розмірністю n.

Потрібно : замінити знаки так, щоб всі елементи масиву стали від’ємними, якщо тільки на k позиціях підряд є однакові елементи.

При невиконанні заданої умови видати повідомлення «Рішення не існує».

Ответить на вопрос
Ответы (1)
Алексюша 7 мая 2020 г., 18:45:05

/ / Pascal ABC.

NET v3.

1 сборка 1172

Var

ar : array of integer ;

n, k, i, j : integer ;

b1 : boolean ;

begin

read(n, k) ;

b1 : = false ;

setlength(ar, n) ;

n : = n - 1 ;

writeln('Enter array : ') ;

for i : = 0 to n do readln(ar[i]) ;

for i : = 0 to n - k + 1 do

begin ; for j : = i to k + i - 1 do if ar[i] = ar[j] then b1 : = true else b1 : = false ;

if b1 = true then break ;

end ;

if b1 = true then for i : = 0 to n do begin ; if ar[i]> ; 0 then ar[i] : = ar[i] * ( - 1) ; write(ar[i] : 4) ; end else writeln('Рішення не існує') ;

end.

Пример ввода :

5 / / n

4 / / k

2

1

1

1

1

Пример вывода : - 2 - 1 - 1 - 1 - 1.

123456789ok 21 дек. 2020 г., 22:08:11 | 10 - 11 классы

Створити і вивести масив а з n - елементами де n - номер варіанта (у мене 8)?

Створити і вивести масив а з n - елементами де n - номер варіанта (у мене 8).

Виконавши завдання свого варіанта .

У випадку відсутності шуканих даних вивести про це повідомлення 8)Вивести номер п'ятого негативного елементу.

ЛенаП123 5 сент. 2020 г., 18:59:33 | 10 - 11 классы

Помогите плизПереписати підряд В масив У(n) позитивні, а в масив Z(n) негативні елементи масиву Х(n), де 0< ; = n< ; = 100?

Помогите плиз

Переписати підряд В масив У(n) позитивні, а в масив Z(n) негативні елементи масиву Х(n), де 0< ; = n< ; = 100.

Можно плиз блок - схему.

Алина7321 10 февр. 2020 г., 23:12:28 | 10 - 11 классы

В одновимірному масиві знайти найменший елемент і поміняти його місцями з першим елементом масиву?

В одновимірному масиві знайти найменший елемент і поміняти його місцями з першим елементом масиву.

Volosatovai 16 янв. 2020 г., 16:43:35 | 10 - 11 классы

Створити і вивести масив а з n - елементами де n - номер варіанта (у мене 8)?

Створити і вивести масив а з n - елементами де n - номер варіанта (у мене 8).

Виконавши завдання свого варіанта .

У випадку відсутності шуканих даних вивести про це повідомлення 8)Вивести номер п'ятого негативного елементу.

Lisamukaseeva4 31 янв. 2020 г., 15:59:27 | 5 - 9 классы

Дано тризначне число?

Дано тризначне число.

Чи кратна сума його цифр семи?

Програма на мові Паскаль.

Афуаф 10 мая 2020 г., 16:29:37 | 5 - 9 классы

Скласти програму і блок схему площи , периметра и обьему фігури заданої радіусом R?

Скласти програму і блок схему площи , периметра и обьему фігури заданої радіусом R.

Порограф 5 сент. 2020 г., 13:18:10 | 10 - 11 классы

Дано масив а из 15 чисел, найти сумму елементов кратных 4?

Дано масив а из 15 чисел, найти сумму елементов кратных 4.

Vffhxgfh 22 сент. 2020 г., 02:08:38 | 10 - 11 классы

Дано масив А[1?

Дано масив А[1.

N]. Скласти програму пошуку кількості елементів масиву які кратні 3 і некратні 5.

Kotowavika2014 9 мар. 2020 г., 10:59:26 | 10 - 11 классы

Дано натуральне число n?

Дано натуральне число n.

Сформувати масив, елементами якого є цифри числа n.

На мові С, НЕ С + +.

Маффулька 23 нояб. 2020 г., 05:11:27 | 10 - 11 классы

Потрібно скласти програму на С + + умови на скріні тільки пяте?

Потрібно скласти програму на С + + умови на скріні тільки пяте.

Якщо можна то код з коментарами.

На этой странице находится ответ на вопрос Скласти програму на мові паскаль Дано масив {X} розмірністю n?, из категории Информатика, соответствующий программе для 10 - 11 классов. Чтобы посмотреть другие ответы воспользуйтесь «умным поиском»: с помощью ключевых слов подберите похожие вопросы и ответы в категории Информатика. Ответ, полностью соответствующий критериям вашего поиска, можно найти с помощью простого интерфейса: нажмите кнопку вверху страницы и сформулируйте вопрос иначе. Обратите внимание на варианты ответов других пользователей, которые можно не только просмотреть, но и прокомментировать.