program a1; const n=20; var c: array [1..100] of integer; var i,k: integer; begink: =0; for i: =1 to n do beginc[i]: =random(101)-50; {заполнение массива произвольно от -50 до 50}write(' ',c[i]); {вывод массива на экран}end; for i: =2 to n doif c[i]< c[i-1] then k: =k+1; {сравнение элемента с предыдущим и счет элементов которые меньше}writeln; writeln('количество элементов=',k); end.
Ответ дал: Гость
1)
var
i,k: integer;
a: array [1..14] of integer;
begin
k: =0;
for i: =1 to 14 do
begin
a[i]: =random(46)-15;
write(a[i]: 3);
if a[i] mod 2=0 then k: =i;
end;
if k> 0 then
begin
for i: =k to 13 do a[i]: =a[i]+1;
a[14]: =0;
end;
writeln;
for i: =1 to 14 do write(a[i]: 3);
end.
2)
var
i,k: integer;
a: array [1..14] of integer;
begin
for i: =1 to 14 do
begin
a[i]: =random(46)-15;
write(a[i]: 3);
end;
for i: =1 to 7 do
begin
k: =a[i];
a[i]: =a[i+7];
a[i+7]: =k;
end;
writeln;
for i: =1 to 14 do write(a[i]: 3);
end.
Ответ дал: Гость
оба ответа подходят в языке
но логичнее нет
просто у нет в 2 функции: согласие с отрицанием и отрицание отрицания
ответ нет, на рисунке белая скатерть
(я выразил отрицание к вопросу)
словом нет можно выразить и отрицание и согласие
да здесь вообще не подходит его не рассматривает
у нет 2 варианта либо согласие с отрицанием - нет, скатерть не белая. либо отрицание вопроса - нет, белая.
при этом первый вариант не верный так как скатерть белая, то есть единственно верный это - нет, скатерть белая (отрицание вопроса)
Популярные вопросы