Выпуск 5 - Российский государственный профессионально ...

МЕТОДИКА
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('Искомый
элемент есть')