Program p1; uses crt; var a,ed,des,sot,tis,s,p,max:longint; begin clrscr; writeln('введите четырех значное число'); readln(a); ed:=a mod 10; des:=a div 10 mod 10; sot:=a div 100 mod 10; tis:=a div 1000; s:=0; p:=1; p:=ed*des*sot*tis; s:=ed+des+sot+tis; writeln('Произведение чисел = ',p); writeln('Сумма чисел = ',s); if (ed>des) and (ed>sot) and (ed>tis) then max:=ed; if (des>ed) and (des>sot) and (des>tis) then max:=des; if (sot>ed) and (sot>des) and (sot>tis) then max:=sot; if (tis>ed) and (tis>des) and (tis>sot) then max:=tis; writeln('Максимальное число = ',max); readln; end.
{12. Дан массив А(3*4). Найти сумму первых отрицательных элементов в каждом столбце.}
uses crt; const N=3; M=4; var a: array [1..N,1..M] of real; x,y:integer; min,sum:real; begin sum:=0; for x:=1 to N do begin for y:=1 to M do begin a[x,y]:=random(10)-5; write(a[x,y]:3:0); end; writeln; end; writeln; for y:=1 to M do begin min:=0; for x:=N downto 1 do if a[x,y]<0 then min:=a[x,y]; sum:=sum+min; end; writeln; writeln('Сумма первых отрицательных элементов в каждом столбце: ',sum); end.
--- {13. Даны два массива А(3*3) и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.}
uses crt; const N=3; var a,b: array [1..N,1..N] of integer; x,y,sum1,sum2: integer; begin sum1:=0; sum2:=0; for x:=1 to N do begin for y:=1 to N do begin a[x,y]:=random(10); if x=y then sum1:=sum1+a[x,y]; write(a[x,y]:3); end; writeln; end; writeln; for x:=1 to N do begin for y:=1 to N do begin b[x,y]:=random(10); if x=y then sum2:=sum2+b[x,y]; write(b[x,y]:3); end; writeln; end; if sum1<>sum2 then begin writeln('Сумма элементов главной диагонали меньше в массиве: '); for x:=1 to N do begin for y:=1 to N do if sum1>sum2 then write(b[x,y]:3) else write(a[x,y]:3); writeln; end; end; if sum1=sum2 then writeln('Сумма элементов главной диагонали одинакова'); end.
--- {17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.}
uses crt; const N=3; M=4; var a: array [1..N,1..M] of real; x,y:integer; begin for x:=1 to N do begin for y:=1 to N do begin a[x,y]:=random(10)-5; write(a[x,y]:3:0); if a[x,y]<0 then a[x,y]:=-a[x,y]; end; writeln; end; writeln; for x:=1 to N do begin for y:=1 to N do write(a[x,y]:3:0); writeln; end; end.
var i, a:integer;
begin
for i=11 to 19 do
begin
a=i*i;
writeln(a);
end;
end.