program chizla;
var k,x,i,a:integer;
begin
x:=0;
k:=0;
writeln ('Введите числа');
for i:=1 to 10 do
begin
readln(a);
if a<0 then
k:=k+1;
if a>0 then
x:=x+1;
end;
writeln('Положительных ',x,' Отрицательных ',k);
end.
For i:=1 to m-1 do
for j:=i+1 to m do
<span>a[i,j]:=0;
</span>
<span><span>pазpаботка вычислительных систем и пpогpаммного обеспечения;</span><span>теоpия инфоpмации, изучающая процессы, связанные с передачей, приёмом, преобразованием и хранением информации;</span>математическое моделирование, методы вычислительной и прикладной математики и их применение к фундаментальным и прикладным исследованиям в различных областях знаний;<span>методы искусственного интеллекта, моделирующие методы логического и аналитического мышления в интеллектуальной деятельности человека (логический вывод, обучение, понимание речи, визуальное восприятие, игры и др.);</span><span>системный анализ, изучающий методологические средства, используемые для подготовки и обоснования решений по сложным проблемам различного характера;</span><span>биоинформатика, изучающая информационные процессы в биологических системах;</span><span>социальная информатика, изучающая процессы информатизации общества;</span><span>методы машинной графики, анимации, средства мультимедиа;</span><span>телекоммуникационные системы и сети, в том числе, глобальные компьютерные сети, объединяющие всё человечество в единое информационное сообщество;</span><span>разнообразные пpиложения, охватывающие производство, науку, образование, медицину, торговлю, сельское хозяйство и все другие виды хозяйственной и общественной деятельности.</span></span>
1 круговая
2 диаграмма
3 наглядно
4 таблица
5 схемы , столбчатая
6 иллюстрация
7 текст
лови
Var
a,b,d:integer;
begin
Read(a,b);
d:=a mod 10 - b mod 10;
if d<0 then Writeln('Разряд единиц меньше у 1-го числа')
else
if d>0 then Writeln('Разряд единиц меньше у 2-го числа')
else Writeln('Разряды единиц у обоих чисел равны')
end.