More documents

Recommendations

Info

МЕТОДИКА 3. Найти в одномерном целочисленном массиве второй по счету нечетный неположительный элемент и вывести на экран его номер (наличие нулевых элементов в массиве не гарантируется). Тесты: № п/п Размерность массива Исходный массив Результат 1 10 1, –1, 2, –2, 3, –3, 4, –4, 5, –5 6 2 10 3, 2, 1, 0, –1, 0, 1, 2, 3, 4 Элемент не найден 3 10 –11, –8, –6, –3, –1, 0, –7, –12, –11, –1 4 4. Определить количество имеющихся в одномерном целочисленном массиве нечетных значений, кратных 3. Тесты: № п/п Размерность массива Исходный массив Результат 1 10 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 2 2 10 0, 2, 4, 6, 8, 10, 12, 14, 16, 18 0 3 10 1, –1, 3, –3, 5, –5, 7, –7, 9, –9 4 5. Найти в одномерном массиве действительных чисел третье по счету нечетное число с нулевой дробной частью. Тесты: № п/п Размерность массива Исходный массив Результат 1 10 0, 1.1, 2, 3.2, 5, 6.3, 7, 8.4, 9.5, 10 Элемент не найден 2 10 0, 1, –1, 2, –2, 3.3, –3.3, 4.5, 5.6, –5 10 3 10 0, 1, –1, 2, –2, 3, –3, 4, –4, 5 6 6. Определить количество элементов одномерного массива, в которых целая часть нечетна и кратна 3 и 7, а дробная часть ненулевая. Тесты: № п/п Размерность массива Исходный массив Результат 1 10 2.3, 5.2, 3.2, 7.4, 14.4, 21.6, 21.0, 21.88, 63.36, 63.0 3 2 10 2.3, 5, 3.3, 7.4, 14.5, 21, 42, 42.3, 63, 6.6 0 3 10 21, 42.24, 63.0, 84, 105.0001, 21.12, 42, 63, 84.5, 105 2 Решения (для учителя): 42 май 2012 / ИНФОРМАТИКА Задача 1 program z1; var mas : array[1..10] of integer; i,N : integer; flag : boolean; label 1; begin {ввод массива} for i := 1 to 10 do begin write('mas[',i,']= '); readln(mas[i]); end; write('Введите число N: '); readln(N); flag := false; for i := 1 to 10 do begin if (mas[i] < 0) and (mas[i] < N) then begin flag := true; goto 1; end; end; 1: if flag then writeln('Номер первого найденного элемента: ',i:2) else writeln('Искомый элемент не найден'); end. Задача 2 program z2; var mas : array[1..10] of integer; i : integer; flag : boolean; begin {ввод массива} for i := 1 to 10 do begin write('mas[',i,']= '); readln(mas[i]); end; flag := false; for i := 1 to 10 do if (mas[i] = 0) and (i mod 2 = 0) then flag := true; if flag then writeln('Искомый элемент есть')
end. else writeln('Искомого элемента нет'); Задача 3 program z3; const n : integer = 2; var mas : array[1..10] of integer; i : integer; flag : integer; label 1; begin {ввод массива} for i := 1 to 10 do begin write('mas[',i,']= '); readln(mas[i]); end; flag := 0; for i := 1 to 10 do if (mas[i]
Page 1 and 2: №5 Издание основан
Page 3 and 4: ПАРА СЛОВ На заметк
Page 5 and 6: коммуникативных на
Page 7 and 8: направо и от передн
Page 9 and 10: Приближение к слуш
Page 11 and 12: В ЗАКЛЮЧИТЕЛЬНОЙ Ч
Page 13 and 14: 13 май 2012 / ИНФОРМАТИ
Page 15 and 16: Введение Со времен
Page 17 and 18: Решение проблемы П
Page 19 and 20: Необходимые базовы
Page 21 and 22: • Как вы считаете,
Page 23 and 24: ти и новых друзей! З
Page 25 and 26: d := (d + 1) mod 7; end end; writel
Page 27 and 28: if days[13] = 5 then black := black
Page 29 and 30: зация модульно-рей
Page 31 and 32: Инструкционная кар
Page 33 and 34: for i := 5 downto 1 do write(mas[i]
Page 35 and 36: Вариант с использо
Page 37 and 38: Если условия задач
Page 39 and 40: ввод массива Перво
Page 41: Таблица трассировк
Page 45 and 46: Образец заполнения
Page 47 and 48: КОД « » ДЛЯ УЧИТЕЛ
Page 49 and 50: эра стремительного
Page 51 and 52: Модель одной части
Page 53 and 54: Согласно факту 4 от
Page 55 and 56: 2 2 2 2 2 2 2 2 Расстанов
Page 57 and 58: “Крепкий орешек”
Page 59 and 60: вить номер типа кор
Page 61 and 62: Next i 'Расставляем ко
Page 63 and 64: станица Барсуковск

ÐÑÐ¿ÑÑÐº 5 - Ð Ð¾ÑÑÐ¸Ð¹ÑÐºÐ¸Ð¹ Ð³Ð¾ÑÑÐ´Ð°ÑÑÑÐ²ÐµÐ½Ð½ÑÐ¹ Ð¿ÑÐ¾ÑÐµÑÑÐ¸Ð¾Ð½Ð°Ð»ÑÐ½Ð¾ ...

Create successful ePaper yourself

Delete template?

Save as template?

ÐÑÐ¿ÑÑÐº 5 - Ð Ð¾ÑÑÐ¸Ð¹ÑÐºÐ¸Ð¹ Ð³Ð¾ÑÑÐ´Ð°ÑÑÑÐ²ÐµÐ½Ð½ÑÐ¹ Ð¿ÑÐ¾ÑÐµÑÑÐ¸Ð¾Ð½Ð°Ð»ÑÐ½Ð¾ ...