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.
Ответ дал: Гость
qbasic
screen 7
input x
input y
input c
s=x+y/2*c
print "x+y/2*c="; s
end
Ответ дал: Гость
поскольку http: \\ftp. не бывает, то ftp: \\schools.ru\program.exe
Ответ дал: Гость
т.к. в ящике имеется 3 чёрных и 5 белых шаров, то наименьшее число шаров нужно взять из ящика(не заглядывая в него), чтобы среди вынутых шаров:
Популярные вопросы