Задача В. Мінімальна відстань Назва вхідного файлу: - вопрос №20841468 от kli200192uasmi 23.03.2022 21:55

Question

Информатика: Задача В. Мінімальна відстань Назва вхідного файлу: standard input Назва вихідного файлу: standard output Ліміт часу: 0.25 seconds Ліміт використання пам яті: 256 megabytes Назвемо відстаню між двома значеннями масиву рідницю індексів j — і, (i ј). Задається масив цілих чисел а. Знайдіть мінімальну відстань між будь-якою парою однакових елементів у цьому масиві. Якщо таких елементів не існує, то вивести -1. Формат вхідних даних Перший рядок вхідного потоку містить ціле число п (1 n 103) - кількість

kli200192uasmi · Answer

Var a,k1,k2,s:integer;beginwriteln( Вводите целые числа. Конец ввода - 0 );k1:=0;k2:=0;s:=0;readln(a);while a 0 do begin if (a mod 2 = 0)and(a 0) then k1:=k1+1; if a mod 2 0 then begin k2:=k2+1; s:=s+a; end; readln(a); end;writeln( количество четных отрицательных чисел = ,k1);if k2 0 then writeln( среднее арифметическое нечётных чисел = ,s/k2) else writeln( в последовательности нет нечётных чисел );end.Пример:Вводите целые числа. Конец ввода - 018-4510-62700количество четных отрицательных чисел...