Сформулировать линейный массив из 9 элементов, значения которых вводится с клавиатуры. все положительные числа массива заменить на 1, отрицательные на 0. результат вывести на экран. (нужен алгоритм, программа и отчет) решить нужно через бейсик
Если текст будет в строчку,как обычно оно тут бывает,скачай мой тхт,там код в нормальном виде
var a, b, c: integer; a1, b1, c1: integer; beginwhile true dobegin writeln('Введите 3 числа'); readln(a, b, c); if (a mod 2) = 0 then // четным плюс 1 a1 := 1; if (b mod 2) = 0 then b1 := 1; if(c mod 2) = 0 then c1 := 1; if((a mod 2) <> 0) and ((b mod 2) <> 0) and ((c mod 2) <> 0) then //При четных нету writeln('четных нет'); if(a1=1)and(b1=0)and(c1=0)then //если только 1 четное writeln(a) else if(a1=0)and(b1=1)and(c1=0)then writeln(b) else if(a1=0)and(b1=0)and(c1=1)then writeln(c); if (a1 = 1) or (b1 = 1) or (c1 = 1) then //Выяснение большего числа begin if(a1 = 1) and (b1 = 1) and (c1 = 1) then // если 3 числа четные begin if (a >= b) and (a >= c) then writeln(a) else if (b >= a) and (b >= c) then writeln(b) else if(c >= b) and (c >= a) then writeln(c) end else if (a1 = 1) and (b1 = 1) then//если а и б четные begin if(a > b) then writeln(a) else if (b > a) then writeln(b) end else if(a1=1)and(c1=1)then//если а и с begin if(a > c) then writeln(a) else if (c > a) then writeln(c) end else if(b1=1)and(c1=1) then//если б и с begin if(b>c)then writeln(b) else if(c>b)then writeln(c) end; end; end;end.
Писал похожую программу , мб пригодитьсяvar cs1,cs2,res,change:integer; TD:string; function FromDec(n,r:longint):string; var s:String; const digit:string[16]='0123456789ABCDEF'; begin s:=''; repeat s:=digit[(n mod r)+1]+s; n:=n div r; until n=0; FromDec:=s; end; function ToDec(n:string;r:longint):longint; var m,i:longint; const digit:string[16]='0123456789ABCDEF'; begin m:=0; while n[1]='0' do delete(n,1,1); for i:=1 to length(n) do m:=m*r+pos(n,digit)-1; ToDec:=m; end; begin writeln('Введите из какой СC:'); repeat readln(cs1); until (cs1>=2) and (cs1<=36); writeln('Введите число в соответствии с CC:'); readln(TD); writeln('Введите в какую CC:'); repeat readln(cs2); until (cs2>=2) and (cs2<=36); writeln('Перевод из ',cs1,' CC --> ',cs2,' CC:'); writeln(FromDec(ToDec(TD,cs1),cs2)); end.
var a, b, c: integer; a1, b1, c1: integer;
beginwhile true dobegin writeln('Введите 3 числа'); readln(a, b, c); if (a mod 2) = 0 then // четным плюс 1 a1 := 1; if (b mod 2) = 0 then b1 := 1; if(c mod 2) = 0 then c1 := 1; if((a mod 2) <> 0) and ((b mod 2) <> 0) and ((c mod 2) <> 0) then //При четных нету writeln('четных нет'); if(a1=1)and(b1=0)and(c1=0)then //если только 1 четное writeln(a) else if(a1=0)and(b1=1)and(c1=0)then writeln(b) else if(a1=0)and(b1=0)and(c1=1)then writeln(c); if (a1 = 1) or (b1 = 1) or (c1 = 1) then //Выяснение большего числа begin if(a1 = 1) and (b1 = 1) and (c1 = 1) then // если 3 числа четные begin if (a >= b) and (a >= c) then writeln(a) else if (b >= a) and (b >= c) then writeln(b) else if(c >= b) and (c >= a) then writeln(c) end else if (a1 = 1) and (b1 = 1) then//если а и б четные begin if(a > b) then writeln(a) else if (b > a) then writeln(b) end else if(a1=1)and(c1=1)then//если а и с begin if(a > c) then writeln(a) else if (c > a) then writeln(c) end else if(b1=1)and(c1=1) then//если б и с begin if(b>c)then writeln(b) else if(c>b)then writeln(c) end; end; end;end.