Использовать Чертежник
алг
нач
сместиться на вектор (5,8)
опустить перо
сместиться на вектор (0,1)
сместиться на вектор (-5,0)
сместиться на вектор (0,-9)
сместиться на вектор (4,0)
сместиться на вектор (1,1)
сместиться на вектор (0,3.5)
сместиться на вектор (-1,1)
сместиться на вектор (-4,0)
поднять перо
кон
program raf105;
var
a:array[1..10] of integer;
x,i,c: integer;
begin
writeln('Заполните массив:');
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10-1 do
if ((a[i]+a[i+1]) mod 2 = 0) and ((a[i]+a[i+1]) mod 4 <> 0)
then c+= 1;
writeln('Вывод: ',c);
end.
<h3><u>PascalABC 3.4.2</u></h3>
Вк это соц сеть. Она влияет на человека по разному на кого-то плохо на кого-то отлично. Там вы можете найти хороших , замечательных друзей
Много не точности. Длину массива сделал через ввод пользователя.
Скинул текстовый документ и саму программу.
-------------------------------------------------------------------------------------------------------
<span>Настоящий мастер — это вечный ученик.</span>