For i := 1 to N do begin
if ((a[i]+a[i+1]) mod 2=0)and((a[i]*a[i+1])>40) then
k:=k+1;
end;
<span>writeln(k);</span>
Program q;
var a, b, max:integer;
begin
write('VVedite 2 chisla');
read(a,b);
max:=a;
if a<b then
max:=b
else
max:=a;
writeln(max);
end.
ПК построенный по принципу "открытой архитектуры" - это, практически, любой современный настольный компьютер - компьютер в котором можно свободно удалять, менять и устанавливать аппаратные части не прибегая к помощи специалистов сервисных центров и т. д.
Закрытая архитектура - соответственно прямо противоположна - из современной техники ближе всего к "закрытом" типу ноутбуки, КПК (но нельзя забывать что и для них есть специальные платы расширения т. е. открытый элемент)<span>Основной признак, по которому разделяются компьютеры, — платформа. Сегодня на рынке представлено несколько основных платформ персональных компьютеров, каждая из которых отличается как по назначению, так и по типу использованных комплектующих и программ. Как правило, различные платформы компьютеров несовместимы между собой.</span>
//PascalABC.NET v3.3 1633
const n = 15;
var arr: array [1..n] of integer;
begin
for var i:=1 to n do
arr[i]:=random(-5,5);
write('Исходный массив: ');
arr.PrintLn(', ');
var count:=0;
for var i:=1 to n do
if arr[i] > 0 then
count += 1;
writeln('Количество положительных элементов: '+count);
end.