Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
artemkharlamov1
31.07.2021 15:52 •
Информатика
Задан массив x(k) вещественных чисел. найти коллво k2 элементов четных. если k2> 0 , заменить min элемент массива на значение k2. вывести x, min, k2 на экран паскаль
Показать ответ
Ответ:
3JlaK
26.08.2020 07:09
Const
k = 5;
var
x: array [1..k] of integer;
i, min_index, k2: integer;
begin
writeln('Enter x:');
for i := 1 to k do
begin
write('x[', i, '] = ');
readln(x[i]);
end;
min_index := 1;
k2 := 0;
for i := 1 to k do
begin
if x[min_index] > x[i] then
min_index := i;
if x[i] mod 2 = 0 then
k2 := k2 + 1;
end;
if k2 > 0 then
x[min_index] := k2;
writeln('x:');
for i := 1 to k do
writeln('x[', i, '] = ', x[i]);
writeln('k2 = ', k2);
writeln('min = ', x[min_index]);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
nastyadolbakp0837c
31.01.2023 07:24
Выбери из данных слов пару объектов,которые имеют общее свойство: самолет, карандаш, птица,скрипка, дрель и стул...
Arse20
22.07.2022 04:20
Задание вычислить значения переменной у (с точностью до целых) по заданным расчетным формулам и наборами данных и составить блок -схему В25.у=k(3+x)²+d(x+2)² x=-3 k=2,6 d= 0,3...
Прша
06.06.2023 05:09
Исправить ошибки в программе(решение уравнения ax+b=0)...
SpawNis
06.08.2022 19:41
Молекулярная структура газов, жидкостей и твердых тел Как молекулы устроены в твердых телах? длинные и хаотичные друг от друга расположены близко друг к другу, недалеко друг от...
кира671
29.03.2020 01:16
Скільки молекул та атомів знаходится в: 1) 56 грамах метану (CH4) 2) 120 л метану...
svetlana898
13.01.2020 15:39
Антракт к III действию из оперы Лоэнгрин Р. Вагнера - описать, что составляет сюжет и кто является героем (дать музыкальную характеристику). за хороший ответ...
infernalcookie
27.02.2021 05:47
Выполни проект «Наш класс» (компьютерную презентациюили плакат постер)....
maxsimsto
26.11.2021 21:35
1. Какие физические качества формирует игра баскетбол?а) гибкость и ловкость б) выносливость и точностьв) скоростно-силовые г) координацию движений2. В каком году была придумана...
wasuablezko
02.07.2022 01:39
Вопросы 234 по стиху башым иям...
Аліна02012003
27.08.2020 08:01
Голландцы создали некий агрегат, предназначенный для того, чтобы облегчить труд мастеров, работающих с парусами ДЛЯ морских судов.Дальнейшее усовершенствование этой конструкции...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
k = 5;
var
x: array [1..k] of integer;
i, min_index, k2: integer;
begin
writeln('Enter x:');
for i := 1 to k do
begin
write('x[', i, '] = ');
readln(x[i]);
end;
min_index := 1;
k2 := 0;
for i := 1 to k do
begin
if x[min_index] > x[i] then
min_index := i;
if x[i] mod 2 = 0 then
k2 := k2 + 1;
end;
if k2 > 0 then
x[min_index] := k2;
writeln('x:');
for i := 1 to k do
writeln('x[', i, '] = ', x[i]);
writeln('k2 = ', k2);
writeln('min = ', x[min_index]);
end.