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 Количество пол-х элементов больше во второй половине
var n, i, x, min: integer;
begin
n:=12; //задаем количество чисел.
min:=16;//присваиваем минимум по правилу:"Минимуму присваиваем самое большое число".
Randomize;
for i:=0 to n-1 do //цикл для рандома 12 чисел. Можно написать " for i:=1 to n do"
begin
x:=Random(31)-15; //присваиваем перемененной "x" рандомное значение из диапазона [-15;15].
Writeln(x); //выводим значение "x".
if (min > x) and (x mod 2 <> 0) then //если минимум больше полученного "x" и "x" - нечетный, то
min:=x; //минимуму присваиваем значение "x".
end;
Writeln('Наименьшее нечетное число последовательности: ',min); //выводим ответ.
end.