По информатике написать в паскале. условия такие: "даны целые числа х и у. если х> у, то необходимо найти произведение этих чисел, иначе их частное". смог написать только так, чтобы находилось произведение, а как сделать "иначе" я не понимаю. вот, посмотрите: program zadacha; var x, z, y : integer; begin readln (x, y); if x> y then z: =x*y writeln(z); end.

program zadacha;

var x,z,y : real;

begin

readln (x,y);

if x> y then

begin

z: =x*y;

writeln('x*y = ',z);

end

else

begin

z: =x/y;

writeln('x/y = ',z);

end;

end.

else - иначе. перед этим оператором не ставится точка с запятой.

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 количество пол-х элементов больше во второй половине

11) начало 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) конец