Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Qwer3313qw
08.06.2021 19:01 •
Информатика
Задан массив x(k) вещественных чисел. найти коллво k2 элементов четных. если k2> 0 , заменить min элемент массива на значение k2. вывести x, min, k2 на экран паскаль
Показать ответ
Ответ:
Пан2007
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 оценок)
Популярные вопросы: Информатика
baga27
03.05.2021 21:24
Как рассчитать сумму,среднее и дисперсию в excel при x=5.75;5.59;0.23;8.16;4.28;7.05;3.98;5.01;6.4;2.79 y=4.5;5.99;13.68;1.58;7.97;5.48;8.65;6.32;5.56;9.81;...
Викушка111111
20.06.2020 05:28
Определите результат программного кода...
errreir
11.07.2021 10:34
1) 1) решите уравнение. ответ запишите в десятичной системе счисления. 2) сколько единиц в двоичной записи числа 8^502 – 4^211 + 2^1536 – 19? 3) сколько единиц в двоичной...
guzhowa66
20.06.2021 22:21
Первый рубеж [ архитектура эвм ] какой элемент компьютера выполняет функцию считывания информации с лазерных дисков? [ архитектура эвм ] какой элемент компьютера выполняет...
RoyaIHeII
16.04.2020 15:13
Коля заметил, что если в дате 21.11.12 убрать точки, то получится шестизначное число-палиндром (оно одинаково читается слева направо и справа налево. найдите следующую дату,...
qwweee
16.04.2020 15:13
Как называется преобразование аналогового сигнала в цифровой код?...
olzhabekzhazira
12.10.2021 21:43
Напиши что есть у чайника,дерева,рыбы...
hoivamvrot
12.10.2021 21:43
Ниже сообщение содержит все буквы алфавита. какое количество информации в этом сообщении. ѣѳωθđσδћ...
zlu4ka11
02.03.2022 15:23
Что это за число? ответ представьте в двоичном и десятичном виде. 100011011101...
Danil545849
05.04.2023 17:24
Написать ответы с 15-30 включительно.ответы могу быть более одного!...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.