Паскаль --- uses crt; var a: array[1..100,1..100] of integer; x,y,sum,k,n:integer; begin write('Введите n: '); readln(n); clrscr; for x:=1 to n do begin for y:=1 to n do begin a[x,y]:=random(21)-10; write(a[x,y]:4); end; writeln; end; k:=0; Sum:=0; for x:=1 to n do for y:=x+1 to n do if a[x,y]>0 then begin Sum:=Sum+a[x,y]; inc(k); end; writeln; if k<>0 then write(sum/k:4:2); end.
Код для примитивной "рисовалки", рисуете что хотите. Для сохранения на рабочий стол нажимаете клавишу "Enter"
// PascalABC.NET // Версия 3.3.5 сборка 1662 (29.04.2018)
uses GraphABC;
begin Window.Title := 'Рисование мышью(Enter - сохранить на раб. стол)'; Pen.Color := Color.Red; Pen.Width := 3; OnMouseDown := (x,y,mb) -> MoveTo(x,y); OnMouseMove := (x,y,mb) -> if mb=1 then LineTo(x,y); var a:=System.Security.Principal.WindowsIdentity.GetCurrent.Name; OnKeyDown:=k->if k=13 then begin SaveWindow('C:\Users\'+copy(a,pos('\',a)+1,a.Length-pos('\',a)+1)+'\Desktop\image.png'); Window.Close; end; end.
ответ:ну вот просто посмотри на цифры может ошибся но вроде верно
Объяснение:
var x,z,f,s:real;
i,j,m:integer;
begin
f:=0;
for m:=1 to 4 do
for i:=1 to m do
begin
s:=0;
x:=0.1;
while x<=2.1 do
begin
z:=7;
repeat
s:=s+exp(-i*x)/power((1+x*x),1/i)+cos(x)/sin(z);
f:=f+s;
z:=z+1.5;
until z>13;
x:=x+0.2;
end;
end;
write('F=',f:0:3)
end.