Дан массив из 10 чисел. Определите,сколько элементов массива имеют минимальное значение.(напишите программу)
Ответы:
05-03-2010 03:04
varm: array [1..10] of integer;max, k, i: integer;beginfor i := 1 to 10 doread(m[i]);max := m[1];k := 1;for i := 2 to 10 doif m[i] > max thenbegink := 1;max := m[i]endelseif m[i] = max theninc(k);write(k)end.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Дан массив из 10 чисел. Определите,сколько элементов массива имеют минимальное значение.(напишите программу)» от пользователя Алена Тучкова в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!