Не очень понял что именно от тебя хотят.Но если все действия происходят в Паскаль, то задача на оператор ветвления.А вот и сама программа на всякий случай: Program Proverka; uses CRT; var x:real; Begin clrscr; writeln ('Введите X'); readln (x); IF x<0 then writeln ('Отрицательное число x=' , x:5:2) Else Begin IF x>0 then writeln ('Положительное число x=' , x:5:2) Else writeln ('Вы выбрали неверное значение'); End; readln; End.
Пусть уже ответили, не пропадать же работе даром)) program test; var a:array[1..10,1..10] of integer; min,max,i,i1,sum,sum2:integer; begin for i:=1 to 10 do begin for i1:=1 to 10 do begin a[i,i1]:=random(1,100); write(a[i,i1]:4); end; writeln; end; writeln('ГЛАВНАЯ ДИАГОНАЛЬ'); min:=a[1,1]; for i:=1 to 10 do begin for i1:=i to 10 do begin sum:=sum+a[i,i1]; if a[i,i1]>max then max:=a[i,i1]; if a[i,i1]<min then min:=a[i,i1]; end; end; writeln('сумма ',sum); writeln('Максимальное ',max); writeln('Минимальное ',min); sum:=0; writeln('ПОБОЧНАЯ ДИАГОНАЛЬ'); min:=a[1,1]; for i:=10 downto 1 do begin for i1:=1 to i do begin sum:=sum+a[i,i1]; if a[i,i1]>max then max:=a[i,i1]; if a[i,i1]<min then min:=a[i,i1]; end; end; writeln('сумма ',sum); writeln('Максимальное ',max); writeln('Минимальное ',min); end.
div - поделить нацело
mod - остаток от деления (паскаль) в си надо соответсвующие функции поставить.
x - число
x1 - x4 - цифры
определяем цифры:
x1 := x mod 10
x2 := (x mod 100) div 10
x3 := (x mod 1000) div 100
x4 := x div 1000
сумма : x1+x2 + x3 + x4
произведение: x1* x2 * x3 * x4