Var a,b,c:integer;;
begin
writeln('введите три числа');
readln(a,b,c);
writeln('сумма первого и третьего числа 'a+c);
writeln('произведение первого и второго числа 'a*b);
end.
<span> в 105 году н. э. Цай Лунем </span>
Классификации на математике: числа бывают: натуральными(1,2,3); целыми (2,-5); дробными(6,73). На русском: предложения бывают: простыми,сложными: сложноподчинёнными,сложносочинёнными,сложными с разными видами связи,сложные бессоюзные.
Const n=15;
var a:array[1..n]of integer;
i,min,k:integer;
begin
for i:=1 to n do a[i]:=Random(100)-20;
for i:=1 to n do
write(a[i],' ');
writeln;
min:=a[1];
for i:=1 to n do
if (a[i]<min) and (a[i]>0) then begin
min:=a[i];
k:=i;
end;
write('минимальный из положительных элементов массива ',min,', его порядковый номер ',k);
<span>end.</span>