1 Задача 1) Начало 2) i = 1 2.1) K = i^2 2.2) Вывод K 2.3) i = i + 1 2.4) i > 5 ? Если Да, возвращаемся на 2.1) Если Нет, окончание цикла. 3) Конец.
2 Задача 1) Начало 2) k = 0 (счетчик нечетных чисел) 3) Ввод первого числа A1 3.1) Если [A1 / 2] < A1 / 2, то k = k + 1 (ввели нечетное число) 4) Ввод второго числа A2 4.1) Если [A2 / 2] < A2 / 2, то k = k + 1 (ввели нечетное число) 5) Ввод третьего числа A3 5.1) Если [A3 / 2] < A3 / 2, то k = k + 1 (ввели нечетное число) 6) Вывод k 7) Конец
3 Задача 1) Начало 2) Объявление массива А() пока неизвестного размера (динамического) 3) i = 1 3.1) Ввод очередного числа A(i) 3.2) Если A(i) = 0, то переход на 4) 3.3) i = i + 1 3.4) Возврат на 3.1) 4) Переопределение динамического массива A(i) размером i элементов. 5) Конец
Var a:array[1..10] of integer; cnt1, cnt2, i:integer; begin For i:= 1 to 10 do Read(a[i]); for i:= 1 to 5 do if a[i] > 0 then cnt1 := cnt1 + 1; for i:= 6 to 10 do if a[i] > 0 then cnt2 := cnt2 + 1; if cnt1 = cnt2 then Writeln('Количество пол-х элементов одинаково'); if cnt1 > cnt2 then Writeln('Количество пол-х элементов больше в первой половине'); if cnt1 < cnt2 then Writeln('Количество пол-х элементов больше во второй половине'); end.
Пример:
-1 -2 3 5 0 4 6 7 -2 -5 Количество пол-х элементов больше во второй половине
1) Начало
2) i = 1
2.1) K = i^2
2.2) Вывод K
2.3) i = i + 1
2.4) i > 5 ?
Если Да, возвращаемся на 2.1)
Если Нет, окончание цикла.
3) Конец.
2 Задача
1) Начало
2) k = 0 (счетчик нечетных чисел)
3) Ввод первого числа A1
3.1) Если [A1 / 2] < A1 / 2, то k = k + 1 (ввели нечетное число)
4) Ввод второго числа A2
4.1) Если [A2 / 2] < A2 / 2, то k = k + 1 (ввели нечетное число)
5) Ввод третьего числа A3
5.1) Если [A3 / 2] < A3 / 2, то k = k + 1 (ввели нечетное число)
6) Вывод k
7) Конец
3 Задача
1) Начало
2) Объявление массива А() пока неизвестного размера (динамического)
3) i = 1
3.1) Ввод очередного числа A(i)
3.2) Если A(i) = 0, то переход на 4)
3.3) i = i + 1
3.4) Возврат на 3.1)
4) Переопределение динамического массива A(i) размером i элементов.
5) Конец