a = 6 => b = 18 - 3 = 15
<em>a < b(6 < 15) - да</em>
<em>b < 2 - нет, b = 15 - 2 = 13</em>
<em>b < 2 - нет, b = 13 - 2 = 11</em>
<em>b < 2 - нет, b = 11 - 2 = 9</em>
<em>b < 2 - net, b = 9 - 2 = 7</em>
<em>b < 2 - net, b = 7 - 2 = 5</em>
<em>b < 2 - net, b = 5 - 2 = 3</em>
<em>b < 2 - net, b = 3 - 2 = 1</em>
<em>b < 2 - da, Вывод: b(1)</em>
Ответ: 2
Programm p1;
var i,s:integer;
arr1:array [1..8] of integer;
begin
for i:=1 to 8 do
begin
writeln ('Введите элемент массива ',i);
readln(arr1[i]);
end;
s:=0;
for i:=1 to 8 do
begin<span>
if (arr1[i] mod 2 <> 0) and (arr1[i]>0) then s:=s+arr1[i];</span>
end;
writeln('Сумма нечетных положительных элементов равно: ',s);
<span>end.</span>
Нет, не равны (наверно). Так как число 999 на два без остатка не делится. (Наверно это правильно)
1)
Program asd;
USES crt;
Const n=10;
var A:array[1..n] of integer;
i,s,k,k1:integer;
BEGIN
Clrscr;
For i:=1 to n do
begin
A[i]:=random(10);
Write(A[i]:4);
end;
Writeln;
Writeln('Введите число: ');
Readln(s);
For i:=1 to n do
begin
If A[i]=s then k:=k+1;
end;
Writeln('Число ',s,', его кол-во в массиве: ',k,' шт.');
<span>END.
2)
Program asd;
USES crt;
Const n=10;
var A:array[1..n] of integer;
i,min,mini,max,maxi:integer;
BEGIN
Clrscr;
For i:=1 to n do
begin
A[i]:=Random(20);
Write(A[i]:4);
end;
Writeln;
max:=A[1];
min:=A[1];
For i:=1 to n do
begin
if A[i]>max then
begin
maxi:=i;
max:=A[i];
end;
if A[i]<min then
begin
mini:=i;
min:=A[i];
end;
end;
Writeln('Максимальное число: ',max,'. Индекс: ',maxi);
Writeln('Минимальное число: ',min,'. Индекс: ',mini );
<span>END.</span></span>
Пушки - старинное артиллерийское оружие, стрляет ядрами - круглыми шарами, пристань - место у берега водоема, куда причаливают плав средства., палят - т.е стреляют, корабль - плавсредство, пристать - причалить, приблизиться, велят - приглашают, приказывают.